Data update

Task/Non-continuous-subsequences/Ada/non-continuous-subsequences.adb

@@ -0,0 +1,37 @@
+with Ada.Text_IO;  use Ada.Text_IO;
+
+procedure Test_Non_Continuous is
+   type Sequence is array (Positive range <>) of Integer;
+   procedure Put_NCS
+             (  Tail : Sequence;                -- To generate subsequences of
+                Head : Sequence := (1..0 => 1); -- Already generated
+                Contiguous : Boolean := True    -- It is still continuous
+             )  is
+   begin
+      if not Contiguous and then Head'Length > 1 then
+         for I in Head'Range loop
+            Put (Integer'Image (Head (I)));
+         end loop;
+         New_Line;
+      end if;
+      if Tail'Length /= 0 then
+         declare
+            New_Head : Sequence (Head'First..Head'Last + 1);
+         begin
+            New_Head (Head'Range) := Head;
+            for I in Tail'Range loop
+               New_Head (New_Head'Last) := Tail (I);
+               Put_NCS
+               (  Tail => Tail (I + 1..Tail'Last),
+                  Head => New_Head,
+                  Contiguous => Contiguous and then (I = Tail'First or else Head'Length = 0)
+               );
+            end loop;
+         end;
+      end if;
+   end Put_NCS;
+begin
+   Put_NCS ((1,2,3));     New_Line;
+   Put_NCS ((1,2,3,4));   New_Line;
+   Put_NCS ((1,2,3,4,5)); New_Line;
+end Test_Non_Continuous;

Task/Non-continuous-subsequences/Pluto/non-continuous-subsequences.pluto

@@ -0,0 +1,37 @@
+require "table2"
+local fmt = require "fmt"
+
+local function ncs(a)
+    local f = "%d "
+    if type(a[1]) == "string" then
+        for i = 1, #a do a[i] = a[i]:byte(1) end
+        f = "%c "
+    end
+
+    local function generate(m, k, c)
+        if k == m then
+            if c[m] != c[1] + m - 1 then
+                for i = 1, m do fmt.write(f, a[c[i]]) end
+                print()
+            end
+        else
+            for j = 1, #a do
+                if k == 0 or j > c[k] then
+                    c[k + 1] = j
+                    generate(m, k + 1, c)
+                end
+            end
+        end
+    end
+
+    for m = 2, #a - 1 do
+        local c = table.rep(m, 0)
+        generate(m, 0, c)
+    end
+end
+
+local a = {1, 2, 3, 4}
+ncs(a)
+print()
+local ca = {"a", "b", "c", "d", "e"}
+ncs(ca)

Task/Non-continuous-subsequences/PowerShell/non-continuous-subsequences.ps1

@@ -0,0 +1,69 @@
+Function SubSequence ( [Array] $S, [Boolean] $all=$false )
+{
+   $sc = $S.count
+   if( $sc -gt ( 2 - [Int32] $all ) ) {
+      [void] $sc--
+      0..$sc | ForEach-Object {
+         $gap = $_
+         "$( $S[ $_ ] )"
+         if( $gap -lt $sc )
+         {
+            SubSequence ( ( $gap + 1 )..$sc | Where-Object { $_ -ne $gap } ) ( ( $gap -ne 0 ) -or $all ) | ForEach-Object {
+               [String]::Join( ',', ( ( [String]$_ ).Split(',') | ForEach-Object {
+                  $lt = $true
+               } {
+                  if( $lt -and ( $_ -gt $gap ) )
+                  {
+                     $S[ $gap ]
+                     $lt = $false
+                  }
+                  $S[ $_ ]
+               } {
+                  if( $lt )
+                  {
+                     $S[ $gap ]
+                  }
+               }
+               ) )
+            }
+         }
+      }
+      #[String]::Join( ',', $S)
+   } else {
+      $S | ForEach-Object { [String] $_ }
+   }
+}
+
+Function NonContinuous-SubSequence ( [Array] $S )
+{
+   $sc = $S.count
+   if( $sc -eq 3 )
+   {
+      [String]::Join( ',', $S[ ( 0,2 ) ] )
+   } elseif ( $sc -gt 3 ) {
+      [void] $sc--
+      $gaps = @()
+      $gaps += ( ( NonContinuous-SubSequence ( 1..$sc ) ) | ForEach-Object {
+         $gap1 = ",$_,"
+         "0,{0}" -f ( [String]::Join( ',', ( 1..$sc | Where-Object { $gap1 -notmatch "$_," } ) ) )
+      } )
+      $gaps += 1..( $sc - 1 )
+      2..( $sc - 1 ) | ForEach-Object {
+         $gap2 = $_ - 1
+         $gaps += ( ( SubSequence ( $_..$sc ) ) | ForEach-Object {
+            "$gap2,$_"
+         } )
+      }
+      #Write-Host "S $S gaps $gaps"
+      $gaps | ForEach-Object {
+         $gap3 = ",$_,"
+         "$( 0..$sc | Where-Object { $gap3 -notmatch ",$_," } | ForEach-Object {
+            $S[$_]
+         } )" -replace ' ', ','
+      }
+   } else {
+      $null
+   }
+}
+
+( NonContinuous-SubSequence 'a','b','c','d','e' ) | Select-Object length, @{Name='value';Expression={ $_ } } | Sort-Object length, value | ForEach-Object { $_.value }

Task/Non-continuous-subsequences/Uiua/non-continuous-subsequences.uiua

@@ -0,0 +1,4 @@
+IsNotSeq      ← ¬/↧=1⧈-
+Subsets       ← /◇⊂≡(□≡□⧅<)↘1
+Nonseqsubsets ← ▽⊸≡◇IsNotSeq Subsets ⟜¤↘1⇡
+≡(&p$"Subseqs of sequence of 1-_:\n_"-1⟜Nonseqsubsets) [4 5 6]

Task/Non-continuous-subsequences/VBScript/non-continuous-subsequences.vbs

@@ -0,0 +1,33 @@
+'Non-continuous subsequences - VBScript - 03/02/2021
+
+Function noncontsubseq(l)
+    Dim  i, j, g, n, r, s, w, m
+    Dim  a, b, c
+    n = Ubound(l)
+    For s = 0 To n-2
+        For g = s+1 To n-1
+            a = "["
+            For i = s To g-1
+                a = a & l(i) & ", "
+            Next 'i
+            For w = 1 To n-g
+                r = n+1-g-w
+                For i = 1 To 2^r-1 Step 2
+                    b = a
+                    For j = 0 To r-1
+                        If i And 2^j Then b=b & l(g+w+j) & ", "
+                    Next 'j
+                    c = (Left(b, Len(b)-1))
+                    WScript.Echo Left(c, Len(c)-1) & "]"
+					m = m+1
+                Next 'i
+            Next 'w
+        Next 'g
+    Next 's
+    noncontsubseq = m
+End Function 'noncontsubseq
+
+list = Array("1", "2", "3", "4")
+WScript.Echo "List: [" & Join(list, ", ") & "]"
+nn = noncontsubseq(list)
+WScript.Echo nn & " non-continuous subsequences"