all tasks

Task/Sorting-algorithms-Bogosort/MAXScript/sorting-algorithms-bogosort.maxscript

@@ -0,0 +1,36 @@
+fn notSorted arr =
+(
+    if arr.count > 0 then
+    (
+        local current = arr[1]
+        for i in 2 to arr.count do
+        (
+            if current > arr[i] then
+            (
+                return true
+            )
+            current = arr[i]
+        )
+    )
+    false
+)
+
+fn randSort x y =
+(
+    random -1 1
+)
+
+fn shuffle arr =
+(			
+    qsort arr randSort
+    arr
+)
+
+fn bogosort arr =
+(
+    while notSorted arr do
+    (
+        arr = shuffle arr
+    )
+    arr
+)