Implemented Bogo Sort in Crystal

Author: Vexatos

contents/bogo_sort/bogo_sort.md

@@ -59,6 +59,8 @@ In code, it looks something like this:
 [import:93-113, lang:"asm-x64"](code/asm-x64/bogo_sort.s)
 {% sample lang="lisp" %}
 [import:20-24, lang:"lisp"](code/lisp/bogo-sort.lisp)
+{% sample lang="crystal" %}
+[import:17-21, lang:"crystal"](code/crystal/bogo.cr)
 {% endmethod %}
 
 That's it.
@@ -117,6 +119,8 @@ We are done here!
 [import, lang:"asm-x64"](code/asm-x64/bogo_sort.s)
 {% sample lang="lisp" %}
 [import, lang:"lisp"](code/lisp/bogo-sort.lisp)
+{% sample lang="crystal" %}
+[import, lang:"crystal"](code/crystal/bogo.cr)
 {% endmethod %}
 
 

contents/bogo_sort/code/crystal/bogo.cr

@@ -0,0 +1,29 @@
+def is_sorted?(a)
+  0.upto(a.size - 2) do |i|
+    if a[i] > a[i + 1]
+      return false
+    end
+  end
+  true
+end
+
+def shuffle!(a)
+  0.upto(a.size - 2) do |i|
+    r = rand(i..a.size - 1)
+    a[i], a[r] = a[r], a[i]
+  end
+end
+
+def bogo_sort!(a)
+  while !is_sorted?(a)
+    shuffle!(a)
+  end
+end
+
+def main
+  a = [1.0, 3.0, 2.0, 4.0]
+  bogo_sort!(a)
+  puts a
+end
+
+main