aparler/RosettaCodeData
1
0
Fork 0
Code Issues 12 Pull requests 3 Projects Releases Packages Wiki Activity Actions

all tasks

Browse source
This commit is contained in:
Ingy döt Net 2013-04-11 01:07:29 -07:00
parent b83f433714
commit 68f8f3e56b
14735 changed files with 178959 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

8
Task/Sorting-algorithms-Insertion-sort/Erlang/sorting-algorithms-insertion-sort-1.erl Normal file
View file

@ -0,0 +1,8 @@
-module(sort).
-export([insertion/1]).
insertion(L) -> lists:foldl(fun insert/2, [], L).
insert(X,[]) -> [X];
insert(X,L=[H|_]) when X =< H -> [X|L];
insert(X,[H|T]) -> [H|insert(X, T)].

4
Task/Sorting-algorithms-Insertion-sort/Erlang/sorting-algorithms-insertion-sort-2.erl Normal file
View file

@ -0,0 +1,4 @@
1> c(sort).
{ok,sort}
2> sort:insertion([5,3,9,4,1,6,8,2,7]).
[1,2,3,4,5,6,7,8,9]