7L7W Erlang - Day 1

day1.erl

-module(day1).
-export([number_of_words/1]).
-export([count/1]).
-export([print_message/1]).

% Write a function that uses recursion to return the number of
% words in a string.

list_size([]) -> 0;
list_size([H|T]) -> 1+list_size(T).

number_of_words(Cadena) -> list_size(string:tokens(Cadena, " ,.")).

% Write a function that uses recursion to count to ten
count(0) -> io:format("Count: ~w~n",[0]);
count(N) when N > 0 -> io:format("Count: ~w~n",[N]), count(N-1).

% Write a function that uses matching to selectively print success
% or error: message given input of the form {error, Message} or success.

print_message({error, Message}) -> io:format("Error: ~s~n", [Message]);
print_message(success) -> io:format("Success~n").

find.erl

% The Erlang language’s official site
% http://www.erlang.org/
% http://www.erlang.se/

% Official documentation for Erlang’s function library
% http://www.erlang.org/doc/

% The documentation for Erlang’s OTP library
% http://www.erlang.org/doc/