Family Day update

2020-02-17 23:21:07 -08:00 · 2020-02-17 23:21:07 -08:00 · 9ad63ea473
commit 9ad63ea473
parent aac6731f2c
2442 changed files with 39761 additions and 8255 deletions
--- a/Task/Sorting-algorithms-Bogosort/Prolog/sorting-algorithms-bogosort.pro
+++ b/Task/Sorting-algorithms-Bogosort/Prolog/sorting-algorithms-bogosort.pro
@ -0,0 +1,11 @@
+bogo_sort(L,Rl) :-
+	min_list(L,Min),
+	repeat,
+	random_permutation(L,Rl),
+	is_sorted(Rl,Min),
+	!.
+	
+is_sorted([],_).
+is_sorted([N|T],P) :-
+	N >= P,
+	is_sorted(T,N).