wip

1 files changed, 17 insertions, 0 deletions

diff --git a/learn-you-some-erlang/functions.erl b/learn-you-some-erlang/functions.erl
new file mode 100644
index 0000000..730a80d
--- /dev/null
+++ b/learn-you-some-erlang/functions.erl
@@ -0,0 +1,17 @@
+-module(functions).
+-export([head/1, second/1, same/2, valid_time/1]).
+
+head([H|_]) -> H.
+
+second([_,X|_]) -> X.
+
+same(X,X) ->
+    true;
+same(_,_) ->
+    false.
+
+valid_time({Date = {Y,M,D}, Time = {H,Min,S}}) ->
+    io:format("The Date tuple (~p) says today is: ~p/~p/~p,~n",[Date,Y,M,D]),
+    io:format("The time tuple (~p) indicates: ~p:~p:~p.~n", [Time,H,Min,S]);
+valid_time(_) ->
+    io:format("Stop feeding me wrong data!~n").