Skip to content

Instantly share code, notes, and snippets.

@mrsolarius

mrsolarius/deplier.erl

Created March 16, 2022 09:53
Show Gist options
  • Save mrsolarius/e24ee01dbf688a26dd792d5e76982897 to your computer and use it in GitHub Desktop.
Save mrsolarius/e24ee01dbf688a26dd792d5e76982897 to your computer and use it in GitHub Desktop.
Download ZIP
Comment déplier une liste en une liste faisant la somme ne contenant que des 1 ?
Raw
deplier.erl
% Réaliser la fonction de dépliment en unités
% Spécification :
% depl(L) est la liste obtenue en "déplissant en unités" de L,
% liste d'entiers naturels supérieurs à 0
% Exemple :
% > depl([2,0,1]).
% [1,1,1]
%
% > depl([2,1]).
% [1,1,1]
%
% > depl([3]).
% [1,1,1]
depl([])->[];
delp([0|Fin])->
depl(Fin);
depl([Pr|Fin])->
[1|depl([Pr-1|Fin])];
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment