Sync

Task/Power-set/Scheme/power-set-4.ss

@@ -0,0 +1,5 @@
+(define (power_set_iter set)
+  (let loop ((res '(())) (s set))
+    (if (empty? s)
+        res
+        (loop (append (map (lambda (i) (cons (car s) i)) res) res) (cdr s)))))

Task/Power-set/Scheme/power-set-5.ss

@@ -0,0 +1,32 @@
+'((e d c b a)
+  (e d c b)
+  (e d c a)
+  (e d c)
+  (e d b a)
+  (e d b)
+  (e d a)
+  (e d)
+  (e c b a)
+  (e c b)
+  (e c a)
+  (e c)
+  (e b a)
+  (e b)
+  (e a)
+  (e)
+  (d c b a)
+  (d c b)
+  (d c a)
+  (d c)
+  (d b a)
+  (d b)
+  (d a)
+  (d)
+  (c b a)
+  (c b)
+  (c a)
+  (c)
+  (b a)
+  (b)
+  (a)
+  ())