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/Power-set/TXR/power-set.txr
+++ b/Task/Power-set/TXR/power-set.txr
@ -0,0 +1,14 @@
+@(next :args)
+@(do (defun power-set (s)
+       (reduce-right
+         (lambda (item ps)
+           (append (mapcar (lambda (e) (cons item e)) ps) ps)) s '(()) nil)))
+@(collect :vars (arg))
+@arg
+@(end)
+@(bind pset @(power-set arg))
+@(output)
+@  (repeat)
+{@(rep)@pset, @(last)@pset@(empty)@(end)}
+@  (end)
+@(end)