Family Day update

Task/Sorting-algorithms-Bogosort/Crystal/sorting-algorithms-bogosort.crystal

@@ -0,0 +1,26 @@
+def knuthShuffle(items : Array)
+    i = items.size-1
+    while i > 1
+        j = Random.rand(0..i)
+        items.swap(i, j)
+
+        i -= 1
+    end
+end
+
+def sorted?(items : Array)
+    prev = items[0]
+    items.each do |item|
+        if item < prev
+            return false
+        end
+        prev = item
+    end
+    return true
+end
+
+def bogoSort(items : Array)
+    while !sorted?(items)
+        knuthShuffle(items)
+    end
+end

Task/Sorting-algorithms-Bogosort/Elena/sorting-algorithms-bogosort.elena

@@ -18,7 +18,7 @@ extension op
 
 public program()
 {
-    var list := new int[]{3, 4, 1, 8, 7, -2, 0};
+    var list := new int[]::(3, 4, 1, 8, 7, -2, 0);
 
     console.printLine("before:", list.asEnumerable());
     console.printLine("after :", list.bogoSorter().asEnumerable())

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).