Data commit

Task/Combinations/ALGOL-68/combinations-1.alg

@@ -0,0 +1,32 @@
+# -*- coding: utf-8 -*- #
+
+COMMENT REQUIRED BY "prelude_combinations_generative.a68"
+  MODE COMBDATA = ~;
+PROVIDES:
+# COMBDATA*=~* #
+# comb*=~ list* #
+END COMMENT
+
+MODE COMBDATALIST = REF[]COMBDATA;
+MODE COMBDATALISTYIELD = PROC(COMBDATALIST)VOID;
+
+PROC comb gen combinations = (INT m, COMBDATALIST list, COMBDATALISTYIELD yield)VOID:(
+  CASE m IN
+  # case 1: transpose list #
+    FOR i TO UPB list DO yield(list[i]) OD
+  OUT
+    [m + LWB list - 1]COMBDATA out;
+    INT index out := 1;
+    FOR i TO UPB list DO
+      COMBDATA first = list[i];
+    # FOR COMBDATALIST sub recombination IN # comb gen combinations(m - 1, list[i+1:] #) DO (#,
+    ##   (COMBDATALIST sub recombination)VOID:(
+        out[LWB list   ] := first;
+        out[LWB list+1:] := sub recombination;
+        yield(out)
+    # OD #))
+    OD
+  ESAC
+);
+
+SKIP

Task/Combinations/ALGOL-68/combinations-2.alg

@@ -0,0 +1,21 @@
+#!/usr/bin/a68g --script #
+# -*- coding: utf-8 -*- #
+
+CO REQUIRED BY "prelude_combinations.a68" CO
+  MODE COMBDATA = INT;
+#PROVIDES:#
+# COMBDATA~=INT~ #
+# comb ~=int list ~#
+PR READ "prelude_combinations.a68" PR;
+
+FORMAT data fmt = $g(0)$;
+
+main:(
+  INT m = 3;
+  FORMAT list fmt = $"("n(m-1)(f(data fmt)",")f(data fmt)")"$;
+  FLEX[0]COMBDATA test data list := (1,2,3,4,5);
+# FOR COMBDATALIST recombination data IN # comb gen combinations(m, test data list #) DO (#,
+##    (COMBDATALIST recombination)VOID:(
+    printf ((list fmt, recombination, $l$))
+# OD # ))
+)