mirror
/
RosettaCodeData
mirror of https://github.com/acmeism/RosettaCodeData.git
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity
RosettaCodeData/Task/Babbage-problem/F-Sharp/babbage-problem-2.fs

4 lines
100 B
Forth
Raw Permalink Blame History

Seq.initInfinite id
|> Seq.skipWhile (fun n->(n*n % 1000000) <> 269696)
|> Seq.head |> printfn "%d"
Reference in New Issue View Git Blame Copy Permalink