Anonymous user
Sorting algorithms/Gnome sort: Difference between revisions
add Erlang version
(add Erlang version) |
|||
Line 393:
? a
# value: [0, 1, 2, 3, 4, 5, 6, 7, 8, 9].diverge()</lang>
=={{header|Erlang}}==
<lang Erlang>
-module(gnome_sort).
-export([gnome/1]).
gnome(L, []) -> L;
gnome([Prev|P], [Next|N]) when Next > Prev ->
gnome(P, [Next|[Prev|N]]);
gnome(P, [Next|N]) ->
gnome([Next|P], N).
gnome([H|T]) -> gnome([H], T).
</lang>
<lang Erlang>
Eshell V5.7.3 (abort with ^G)
1> c(gnome_sort).
{ok,gnome_sort}
2> gnome_sort:gnome([8,3,9,1,3,2,6]).
[1,2,3,3,6,8,9]
3>
</lang>
=={{header|F Sharp|F#}}==
| |||