From f40104937d549f65b9cec2ac3b505e2063011123 Mon Sep 17 00:00:00 2001 From: Max Hohlfeld Date: Mon, 14 Aug 2023 09:36:36 +0200 Subject: [PATCH] erlang day1 --- erlang/day1.erl | 13 +++++++++++++ 1 file changed, 13 insertions(+) create mode 100644 erlang/day1.erl diff --git a/erlang/day1.erl b/erlang/day1.erl new file mode 100644 index 0000000..daf8319 --- /dev/null +++ b/erlang/day1.erl @@ -0,0 +1,13 @@ +-module(day1). +-export([charcount/1]). +-export([counter/1]). +-export([print/1]). + +charcount([]) -> 0; +charcount([_ | Rest]) -> 1 + charcount(Rest). + +counter(10) -> 10; +counter(N) -> counter(N + 1). + +print(success) -> io:write("success"); +print({error, Message}) -> io:write(unicode:characters_to_list(["error: ", Message], utf8)).