June 2018 Update

Task/Sorting-algorithms-Bogosort/Maple/sorting-algorithms-bogosort.maple

@@ -0,0 +1,16 @@
+arr := Array([2,3,1]):
+len := numelems(arr):
+#Translation of C, random swapping
+shuffle_arr := proc(arr, len)
+	local i, r, temp:
+	for i from 1 to len do
+		temp := arr[i]:
+		r := rand(1..len)():
+		arr[i] := arr[r]:
+		arr[r] := temp:
+	end do:
+end proc:
+while(not ListTools:-Sorted(convert(arr, list))) do
+	shuffle_arr(arr, len):
+end do:
+arr;