Mon apprentissage de Erlang

[niahoo]

non tu as donné une version de ce code erlang ! :

Code :

-module(geometry).
-export([ area/1 ]).

area(Shape) ->
    case Shape of
        { rectangle, Width, Height } -> Width * Height;
        { circle, Radius } -> Radius * Radius * 3.14
    end.

Sinon ben la programmation fonctionnelle je trouve que ça a que du bon. J'aime pas vraiment l'objet, je ne sais jamais dans quelle classe mettre telle ou telle fonctionnalité.

edit : ta version est en fait intermédiare, non ?