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/Magnanimous-numbers/F-Sharp/magnanimous-numbers-1.fs Normal file
View file

@ -0,0 +1,6 @@
// Generate Magnanimous numbers. Nigel Galloway: March 20th., 2020
let rec fN n g = match (g/n,g%n) with
(0,_) -> true
|(α,β) when isPrime (α+β) -> fN (n*10) g
|_ -> false
let Magnanimous = let Magnanimous = fN 10 in seq{yield! {0..9}; yield! Seq.initInfinite id |> Seq.skip 10 |> Seq.filter Magnanimous}

1
Task/Magnanimous-numbers/F-Sharp/magnanimous-numbers-2.fs Normal file
View file

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

1
Task/Magnanimous-numbers/F-Sharp/magnanimous-numbers-3.fs Normal file
View file

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

1
Task/Magnanimous-numbers/F-Sharp/magnanimous-numbers-4.fs Normal file
View file

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