Data commit

2023-07-01 11:58:00 -04:00 · 2023-07-01 11:58:00 -04:00 · cb5bb5e222
commit cb5bb5e222
parent 7387c8f97b
199093 changed files with 3378972 additions and 0 deletions
--- a/Task/Non-continuous-subsequences/Standard-ML/non-continuous-subsequences.ml
+++ b/Task/Non-continuous-subsequences/Standard-ML/non-continuous-subsequences.ml
@ -0,0 +1,21 @@
+fun fence s [] =
+      if s >= 3 then
+        [[]]
+      else
+        []
+
+  | fence s (x :: xs) =
+      if s mod 2 = 0 then
+        map
+          (fn ys => x :: ys)
+          (fence (s + 1) xs)
+        @
+          fence s xs
+      else
+        map
+          (fn ys => x :: ys)
+          (fence s xs)
+        @
+          fence (s + 1) xs
+
+fun ncsubseq xs = fence 0 xs