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/Sort-an-integer-array/Bracmat/sort-an-integer-array.bracmat
+++ b/Task/Sort-an-integer-array/Bracmat/sort-an-integer-array.bracmat
@ -0,0 +1,17 @@
+{sort takes a list of space-separated integers}
+(sort=
+  sum elem sorted n
+.   0:?sum
+  &   whl
+    ' (!arg:%?elem ?arg&(!elem.)+!sum:?sum)
+  & :?sorted
+  &   whl
+    ' ( !sum:?n*(?elem.)+?sum
+      &   whl
+        ' ( !n+-1:~<0:?n
+          & !sorted !elem:?sorted
+          )
+      )
+  & !sorted);
+
+  out$sort$(9 -2 1 2 8 0 1 2);