March 2014 update

Task/Power-set/TXR/power-set-1.txr

@@ -0,0 +1,4 @@
+(defun power-set (s)
+ (reduce-right
+   (op append (mapcar (op cons @@1) @2) @2)
+   s '(())))

Task/Power-set/TXR/power-set-2.txr

@@ -0,0 +1,10 @@
+@(do (defun power-set (s)
+       (reduce-right
+         (op append (mapcar (op cons @@1) @2) @2)
+         s '(()))))
+@(bind pset @(power-set *args*))
+@(output)
+@  (repeat)
+{@(rep)@pset, @(last)@pset@(empty)@(end)}
+@  (end)
+@(end)

Task/Power-set/TXR/power-set-3.txr

@@ -0,0 +1,7 @@
+@(do (defun power-set (s)
+       (reduce-right
+         (op append (mapcar (op cons @@1) @2) @2)
+         s '(())))
+     (prinl (power-set "abc"))
+     (prinl (power-set ""))
+     (prinl (power-set #(1 2 3))))

Task/Power-set/TXR/power-set.txr

@@ -1,14 +0,0 @@
-@(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)