Data commit

Task/Esthetic-numbers/F-Sharp/esthetic-numbers-1.fs

@@ -0,0 +1,12 @@
+// Generate Esthetic Numbers. Nigel Galloway: March 21st., 2020
+let rec fN Σ n g = match g with h::t -> match List.head h with
+                                         0 -> fN ((1::h)::Σ) n t
+                                        |g when g=n-1 -> fN ((g-1::h)::Σ) n t
+                                        |g -> fN ((g-1::h)::(g+1::h)::Σ) n t
+                               |_    -> Σ
+
+let Esthetic n = let Esthetic, g = fN [] n, [1..n-1] |> List.map(fun n->[n])
+                 Seq.unfold(fun n->Some(n,Esthetic(List.rev n)))(g) |> Seq.concat
+
+let EtoS n = let g = "0123456789abcdef".ToCharArray()
+             n |> List.map(fun n->g.[n]) |> List.rev |> Array.ofList |> System.String

Task/Esthetic-numbers/F-Sharp/esthetic-numbers-2.fs

@@ -0,0 +1 @@
+[2..16]|>List.iter(fun n->printfn "\nBase %d" n; Esthetic n|>Seq.skip(4*n-1)|>Seq.take((6-4)*n+1)|>Seq.iter(EtoS >> printfn "%s"))

Task/Esthetic-numbers/F-Sharp/esthetic-numbers-3.fs

@@ -0,0 +1 @@
+Esthetic 10|>Seq.map(EtoS>>int)|>Seq.skipWhile(fun n->n<1000)|>Seq.takeWhile(fun n->n<9999)|>Seq.iter(printfn "%d");;

Task/Esthetic-numbers/F-Sharp/esthetic-numbers-4.fs

@@ -0,0 +1 @@
+Esthetic 10|>Seq.map(EtoS>>int)|>Seq.skipWhile(fun n->n<100000000)|>Seq.takeWhile(fun n->n< 130000000)|>Seq.iter(printfn "%d")

Task/Esthetic-numbers/F-Sharp/esthetic-numbers-5.fs

@@ -0,0 +1 @@
+Esthetic 10|>Seq.map(EtoS>>int64)|>Seq.skipWhile(fun n->n<100000000000L)|>Seq.takeWhile(fun n->n<130000000000L)|>Seq.iter(printfn "%d")