Sync

2013-10-27 22:24:23 +00:00 · 2013-10-27 22:24:23 +00:00 · 776bba907c
commit 776bba907c
parent 6f050a029e
3887 changed files with 59894 additions and 7280 deletions
--- a/Task/Sorting-algorithms-Selection-sort/Prolog/sorting-algorithms-selection-sort.pro
+++ b/Task/Sorting-algorithms-Selection-sort/Prolog/sorting-algorithms-selection-sort.pro
@ -0,0 +1,17 @@
+selection_sort([], []).
+selection_sort([H | L], [H1 | L2]) :-
+	exchange(H, L, H1, L1),
+	selection_sort(L1, L2).
+
+
+exchange(H, [], H, []).
+
+exchange(H, L, H1, L1) :-
+	min_list(L, H2),
+	(   H < H2
+	->  H1 = H, L1 = L
+	;   H1 = H2,
+	    % does the exchange of the number H
+	    % and the min of the list
+	    nth0(Ind, L, H1, L2),
+	    nth0(Ind, L1, H, L2)).