Data commit

Task/Non-continuous-subsequences/F-Sharp/non-continuous-subsequences-1.fs

@@ -0,0 +1,8 @@
+(*
+  A function to generate only the non-continuous subsequences.
+  Nigel Galloway July 20th., 2017
+*)
+let N n =
+  let     fn n = Seq.map (fun g->(2<<<n)+g)
+  let rec fg n = seq{if n>0 then yield! seq{1..((1<<<n)-1)}|>fn n; yield! fg (n-1)|>fn n}
+  Seq.collect fg ({1..(n-2)})

Task/Non-continuous-subsequences/F-Sharp/non-continuous-subsequences-2.fs

@@ -0,0 +1,2 @@
+let Ng ng = N ng |> Seq.iter(fun n->printf "%2d -> " n; {0..(ng-1)}|>Seq.iter (fun g->if (n&&&(1<<<g))>0 then printf "%d " (g+1));printfn "")
+Ng 4

Task/Non-continuous-subsequences/F-Sharp/non-continuous-subsequences-3.fs

@@ -0,0 +1,10 @@
+(*
+  A function to filter out continuous subsequences.
+  Nigel Galloway July 24th., 2017
+*)
+let Nonseq n=
+  let fn = function
+    |((n,0),true )->(n+1,1)
+    |((n,_),false)->(n,0)
+    |(n,_)        ->n
+  {5..(1<<<n)-1}|>Seq.choose(fun i->if fst({0..n-1}|>Seq.takeWhile(fun n->(1<<<(n-1))<i)|>Seq.fold(fun n g->fn (n,(i&&&(1<<<g)>0)))(0,0)) > 1 then Some(i) else None)