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

3
Task/Cuban-primes/F-Sharp/cuban-primes-1.fs Normal file
View file

@ -0,0 +1,3 @@
// Generate cuban primes. Nigel Galloway: June 9th., 2019
let cubans=Seq.unfold(fun n->Some(n*n*n,n+1L)) 1L|>Seq.pairwise|>Seq.map(fun(n,g)->g-n)|>Seq.filter(isPrime64)
let cL=let g=System.Globalization.CultureInfo("en-GB") in (fun (n:int64)->n.ToString("N0",g))

1
Task/Cuban-primes/F-Sharp/cuban-primes-2.fs Normal file
View file

@ -0,0 +1 @@
cubans|>Seq.take 200|>List.ofSeq|>List.iteri(fun n g->if n%8=7 then printfn "%12s" (cL(g)) else printf "%12s" (cL(g)))

1
Task/Cuban-primes/F-Sharp/cuban-primes-3.fs Normal file
View file

@ -0,0 +1 @@
printfn "\n\n%s" (cL(Seq.item 99999 cubans))