tasks a-s

Task/Power-set/Tcl/power-set-1.tcl

@@ -0,0 +1,8 @@
+proc subsets {l} {
+    set res [list [list]]
+    foreach e $l {
+        foreach subset $res {lappend res [lappend subset $e]}
+    }
+    return $res
+}
+puts [subsets {a b c d}]

Task/Power-set/Tcl/power-set-2.tcl

@@ -0,0 +1,12 @@
+proc powersetb set {
+   set res {}
+   for {set i 0} {$i < 2**[llength $set]} {incr i} {
+      set pos -1
+      set pset {}
+      foreach el $set {
+          if {$i & 1<<[incr pos]} {lappend pset $el}
+      }
+      lappend res $pset
+   }
+   return $res
+}