langs a-z

Task/Combinations/V/combinations-1.v

@@ -0,0 +1,6 @@
+[comb [m lst] let
+   [ [m zero?] [[[]]]
+     [lst null?] [[]]
+     [true] [m pred lst rest comb [lst first swap cons]  map
+            m lst rest comb concat]
+   ] when].

Task/Combinations/V/combinations-2.v

@@ -0,0 +1,6 @@
+[comb
+   [ [pop zero?] [pop pop [[]]]
+     [null?] [pop pop []]
+     [true] [ [m lst : [m pred lst rest comb [lst first swap cons]  map
+            m lst rest comb concat]] view i ]
+   ] when].

Task/Combinations/V/combinations-3.v

@@ -0,0 +1,8 @@
+[comb
+   [2dup [a b : a b a b] view].
+   [2pop pop pop].
+
+   [ [pop zero?] [2pop [[]]]
+     [null?] [2pop []]
+     [true] [2dup [pred] dip uncons swapd comb [cons] map popd rollup rest comb concat]
+   ] when].