Comment aplatire une liste de liste en une liste Erlang ?

flat.erl

% Spec : flat/1
% flat(L) vas concatener toutes les sous listes de L
% On supose ici que L est une liste de listes
%
% Exemple :
% flat([[1,2],[3,4],[5,6]]) = [1,2,3,4,5,6]

% Analyse
%
%   flat(L)?
%      / \
%     []  [Pr|Fin]
%     ^    ^
%     |    |
% Liste    Liste de Liste
%
% Exemple :
%                 [[1,2]|[3],[4,5,6]]]
%                  |___| |__________|
%                    Pr       Fin
%                   |____________|
%                       |    |
%  [1,2|3,4,5,6] flat <-+    +-> flat [3,4,5,6]
%
%  sur L : 2 cas
% 1) L = [] : dans se cas renvoie d'une liste vide
flat([])->[];

% 2) L =/= [] : L = [Pr|Fin]
flat([Pr|Fin])->flat(Pr)++flat(Fin).