tasks a-s

2013-04-10 23:57:08 -07:00 · 2013-04-10 23:57:08 -07:00 · b83f433714
commit b83f433714
parent 47bf37c096
12433 changed files with 156208 additions and 123 deletions
--- a/Task/Permutations/Bracmat/permutations.bracmat
+++ b/Task/Permutations/Bracmat/permutations.bracmat
@ -0,0 +1,13 @@
+  ( perm
+  =   prefix List result original A Z
+    .   !arg:(?.)
+      |   !arg:(?prefix.?List:?original)
+        & :?result
+        &   whl
+          ' ( !List:%?A ?Z
+            & !result perm$(!prefix !A.!Z):?result
+            & !Z !A:~!original:?List
+            )
+        & !result
+  )
+& out$(perm$(.a 2 "]" u+z);