From 5a9cdd3cc89507d4d74f8bded56ce5e037b3b56e Mon Sep 17 00:00:00 2001 From: Trygve Laugstøl Date: Fri, 23 Feb 2024 07:08:18 +0100 Subject: wip --- learn-you-some-erlang/cases.erl | 22 ++++++++++++++++++++++ 1 file changed, 22 insertions(+) create mode 100644 learn-you-some-erlang/cases.erl (limited to 'learn-you-some-erlang/cases.erl') diff --git a/learn-you-some-erlang/cases.erl b/learn-you-some-erlang/cases.erl new file mode 100644 index 0000000..9b4f931 --- /dev/null +++ b/learn-you-some-erlang/cases.erl @@ -0,0 +1,22 @@ +-module(cases). +-export([insert/2,beach/1]). + +insert(X,[]) -> + [X]; +insert(X,Set) -> + case lists:member(X,Set) of + true -> Set; + false -> [X|Set] + end. + +beach(Temperature) -> + case Temperature of + {celsius, N} when N >= 20, N =< 45 -> + 'favorable'; + {kelvin, N} when N >= 293, N =< 318 -> + 'scientifically favorable'; + {fahrenheit, N} when N >= 68, N =< 113 -> + 'favorable in the US'; + _ -> + 'avoid beach' + end. -- cgit v1.2.3