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

4
Task/Babbage-problem/F-Sharp/babbage-problem-1.fs Normal file
View file

@ -0,0 +1,4 @@
let mutable n=1
while(((n*n)%( 1000000 ))<> 269696) do
n<-n+1
printf"%i"n

3
Task/Babbage-problem/F-Sharp/babbage-problem-2.fs Normal file
View file

@ -0,0 +1,3 @@
Seq.initInfinite id
|> Seq.skipWhile (fun n->(n*n % 1000000) <> 269696)
|> Seq.head |> printfn "%d"

2
Task/Babbage-problem/F-Sharp/babbage-problem-3.fs Normal file
View file

@ -0,0 +1,2 @@
let rec fN g=seq{yield g; yield g+2; yield! fN(g+10)}
printfn "%d" (fN 524|>Seq.find(fun n->n*n%1000000=269696))