Data commit

Task/Non-continuous-subsequences/ALGOL-68/non-continuous-subsequences-1.alg

@@ -0,0 +1,35 @@
+PROC test non continuous = VOID: BEGIN
+   MODE SEQMODE = CHAR;
+   MODE SEQ = [1:0]SEQMODE;
+   MODE YIELDSEQ = PROC(SEQ)VOID;
+
+   PROC gen ncs =
+             (  SEQ tail,       # To generate subsequences of #
+                SEQ head,       #           Already generated #
+                BOOL contiguous,#      It is still continuous #
+                YIELDSEQ yield
+             )  VOID:
+   BEGIN
+      IF NOT contiguous ANDTH UPB head > 1 THEN
+         yield (head)
+      FI;
+      IF UPB tail /= 0 THEN
+            [UPB head+1]SEQMODE new head;
+            new head [:UPB head] := head;
+            FOR i TO UPB tail DO
+               new head [UPB new head] := tail [i];
+               gen ncs
+               (  tail[i + 1:UPB tail],
+                  new head,
+                  contiguous ANDTH (i = LWB tail OREL UPB head = 0),
+                  yield
+               )
+            OD
+      FI
+   END # put ncs #;
+
+ # FOR SEQ seq IN # gen ncs(("a","e","i","o","u"), (), TRUE, # ) DO ( #
+ ##   (SEQ seq)VOID:
+      print((seq, new line))
+ # OD # )
+END; test non continuous

Task/Non-continuous-subsequences/ALGOL-68/non-continuous-subsequences-2.alg

@@ -0,0 +1,47 @@
+MODE SEQMODE = STRING;
+MODE SEQ = [1:0]SEQMODE;
+MODE YIELDSEQ = PROC(SEQ)VOID;
+
+PROC gen ncs = (SEQ seq, YIELDSEQ yield)VOID:
+BEGIN
+  IF UPB seq - 1 > bits width THEN stop FI;
+  [UPB seq]SEQMODE out;  INT upb out;
+
+  BITS lim := 16r1 SHL UPB seq;
+  BITS upb k := lim SHR 1;
+  # assert(lim); #
+
+  BITS empty = 16r000000000; # const #
+
+  FOR j TO ABS lim-1 DO
+    INT state := 1;
+    BITS k1 := upb k;
+    WHILE k1 NE empty DO
+      BITS b := BIN j AND k1;
+      CASE state IN
+        # state 1 # IF b NE empty THEN state +:= 1 FI,
+        # state 2 # IF b EQ empty THEN state +:= 1 FI,
+        # state 3 #
+          BEGIN
+            IF b EQ empty THEN GO TO continue k1 FI;
+            upb out := 0;
+            BITS k2 := upb k; FOR i WHILE k2 NE empty DO
+              IF (BIN j AND k2) NE empty THEN out[upb out +:= 1] := seq[i] FI;
+              k2 := k2 SHR 1
+            OD;
+            yield(out[:upb out]);
+            k1 := empty # empty: ending containing loop #
+         END
+      ESAC;
+      continue k1: k1 := k1 SHR 1
+    OD
+  OD
+END;
+
+main:(
+  []STRING seqs = ("a","e","i","o","u");
+# FOR SEQ seq IN # gen ncs(seqs, # ) DO ( #
+##   (SEQ seq)VOID:
+    print((seq, new line))
+# OD # )
+)