Data update

Task/Sorting-algorithms-Bogosort/Pluto/sorting-algorithms-bogosort.pluto

@@ -0,0 +1,17 @@
+require "table2"
+
+local function is_sorted(a)
+    for i = 1, #a - 1 do
+        if a[i] > a[i + 1] then return false end
+    end
+    return true
+end
+
+local function bogosort(a)
+    while not is_sorted(a) do a:shuffle() end
+end
+
+local a = {31, 41, 59, 26, 53, 58, 97, 93, 23, 84}
+print($"Before: \{{a:concat(", ")}}")
+bogosort(a)
+print($"After : \{{a:concat(", ")}}")