tasks a-s

2013-04-10 23:57:08 -07:00 · 2013-04-10 23:57:08 -07:00 · b83f433714
commit b83f433714
parent 47bf37c096
12433 changed files with 156208 additions and 123 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