aparler/RosettaCodeData
1
0
Fork 0
Code Issues 12 Pull requests 3 Projects Releases Packages Wiki Activity Actions

Data commit

Browse source
This commit is contained in:
Ingy döt Net 2023-07-01 11:58:00 -04:00
parent 7387c8f97b
commit cb5bb5e222
199093 changed files with 3378972 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

6
Task/Mian-Chowla-sequence/F-Sharp/mian-chowla-sequence-1.fs Normal file
View file

@ -0,0 +1,6 @@
// Generate Mian-Chowla sequence. Nigel Galloway: March 23rd., 2019
let mC=let rec fN i g l=seq{
let a=(l*2)::[for i in i do yield i+l]@g
let b=[l+1..l*2]|>Seq.find(fun e->Seq.forall(fun g->(Seq.contains (g-e)>>not) i) a)
yield b; yield! fN (l::i) (a|>List.filter(fun n->n>b)) b}
seq{yield 1; yield! fN [] [] 1}

1
Task/Mian-Chowla-sequence/F-Sharp/mian-chowla-sequence-2.fs Normal file
View file

@ -0,0 +1 @@
mC |> Seq.take 30 |> Seq.iter(printf "%d ");printfn ""

1
Task/Mian-Chowla-sequence/F-Sharp/mian-chowla-sequence-3.fs Normal file
View file

@ -0,0 +1 @@
mC |> Seq.skip 90 |> Seq.take 10 |> Seq.iter(printf "%d ");printfn ""