September 2017 Update

2017-09-23 10:01:46 +02:00 · 2017-09-23 10:01:46 +02:00 · ba8067c3b7
commit ba8067c3b7
parent bba7bfd280
14570 changed files with 153136 additions and 63871 deletions
--- a/Task/Sorting-algorithms-Selection-sort/Erlang/sorting-algorithms-selection-sort.erl
+++ b/Task/Sorting-algorithms-Selection-sort/Erlang/sorting-algorithms-selection-sort.erl
@ -0,0 +1,16 @@
+-module(solution).
+-import(lists,[delete/2,max/1]).
+-compile(export_all).
+selection_sort([],Sort)-> Sort;
+selection_sort(Ar,Sort)->
+	M=max(Ar),
+	Ad=delete(M,Ar),
+	selection_sort(Ad,[M|Sort]).
+print_array([])->ok;
+print_array([H|T])->
+	io:format("~p~n",[H]),
+	print_array(T).	
+
+main()->
+	Ans=selection_sort([1,5,7,8,4,10],[]),
+	print_array(Ans).