all tasks

2013-04-11 01:07:29 -07:00 · 2013-04-11 01:07:29 -07:00 · 68f8f3e56b
commit 68f8f3e56b
parent b83f433714
14735 changed files with 178959 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