Data commit

2023-07-01 11:58:00 -04:00 · 2023-07-01 11:58:00 -04:00 · cb5bb5e222
commit cb5bb5e222
parent 7387c8f97b
199093 changed files with 3378972 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);