Initial data commit

2023-07-01 11:58:00 -04:00 · 2023-07-01 11:58:00 -04:00 · f23f22d71c
commit f23f22d71c
parent 72d218235f
199087 changed files with 3378941 additions and 0 deletions
--- a/Task/Sorting-algorithms-Bogosort/Icon/sorting-algorithms-bogosort.icon
+++ b/Task/Sorting-algorithms-Bogosort/Icon/sorting-algorithms-bogosort.icon
@ -0,0 +1,17 @@
+procedure shuffle(l)
+   repeat {
+       !l :=: ?l
+       suspend l
+   }
+end
+
+procedure sorted(l)
+   local i
+   if (i := 2 to *l & l[i] >= l[i-1]) then return &fail else return 1
+end
+
+procedure main()
+   local l
+   l := [6,3,4,5,1]
+   |( shuffle(l) & sorted(l)) \1 & every writes(" ",!l)
+end