recursive word count

5 years ago · a2b6b78630
parent 3700af5fdd
commit a2b6b78630
1 changed files with 9 additions and 0 deletions
--- a/erlang/words.erl
+++ b/erlang/words.erl
@ -0,0 +1,9 @@
+-module(words).
+-export([count/1]).
+
+count(S) -> count(S, true, 0).
+
+count("", _, Total) -> Total;
+count([$ |Tail], _, Total) -> count(Tail, true, Total);
+count([_|Tail], false, Total) -> count(Tail, false, Total);
+count([_|Tail], true, Total) -> count(Tail, false, Total + 1).