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/OCaml/non-continuous-subsequences.ocaml
+++ b/Task/Non-continuous-subsequences/OCaml/non-continuous-subsequences.ocaml
@ -0,0 +1,22 @@
+let rec fence s = function
+    [] ->
+      if s >= 3 then
+        [[]]
+      else
+        []
+
+  | x :: xs ->
+      if s mod 2 = 0 then
+        List.map
+          (fun ys -> x :: ys)
+          (fence (s + 1) xs)
+        @
+          fence s xs
+      else
+        List.map
+          (fun ys -> x :: ys)
+          (fence s xs)
+        @
+          fence (s + 1) xs
+
+let ncsubseq = fence 0