all tasks

2013-04-11 01:07:29 -07:00 · 2013-04-11 01:07:29 -07:00 · 68f8f3e56b
commit 68f8f3e56b
parent b83f433714
14735 changed files with 178959 additions and 0 deletions
--- a/Task/Sorting-algorithms-Bogosort/Io/sorting-algorithms-bogosort.io
+++ b/Task/Sorting-algorithms-Bogosort/Io/sorting-algorithms-bogosort.io
@ -0,0 +1,17 @@
+List do(
+    isSorted := method(
+        slice(1) foreach(i, x,
+            if (x < at(i), return false)
+        )
+        return true;
+    )
+
+    bogoSortInPlace := method(
+        while(isSorted not,
+            shuffleInPlace()
+        )
+    )
+)
+
+lst := list(2, 1, 4, 3)
+lst bogoSortInPlace println # ==> list(1, 2, 3, 4), hopefully :)