diff options
Diffstat (limited to 'learn-you-some-erlang/guards.erl')
| -rw-r--r-- | learn-you-some-erlang/guards.erl | 15 |
1 files changed, 15 insertions, 0 deletions
diff --git a/learn-you-some-erlang/guards.erl b/learn-you-some-erlang/guards.erl new file mode 100644 index 0000000..3b1a2bc --- /dev/null +++ b/learn-you-some-erlang/guards.erl @@ -0,0 +1,15 @@ +-module(guards). +-export([old_enough/1, right_age/1, wrong_age/1]). + +old_enough(X) when X >= 16 -> true; +old_enough(_) -> false. + +right_age(X) when X >= 16, X =< 104 -> + true; +right_age(_) -> + false. + +wrong_age(X) when X < 16; X > 104 -> + true; +wrong_age(_) -> + false. |