Langage fonctionnel
Les listes

Chaque liste non-vide possède
une tête
une queue (qui est une liste)

[1, 2, 3] équivalent à [1 | [2 | [ 3 | []]]]

-module (count).
-export ([count/1, othercount/1]).

count ([]) -> 0;
count ([Head | Tail]) -> 1 + count (Tail).

othercount ([]) -> 0;
othercount ([_ | Tail]) ->
    1 + othercount (Tail).