Initial data commit

2023-07-01 11:58:00 -04:00 · 2023-07-01 11:58:00 -04:00 · f23f22d71c
commit f23f22d71c
parent 72d218235f
199087 changed files with 3378941 additions and 0 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)).