RosettaCodeData/Task/Babbage-problem/F-Sharp/babbage-problem-2.fs
2023-07-01 13:44:08 -04:00

3 lines
100 B
FSharp

Seq.initInfinite id
|> Seq.skipWhile (fun n->(n*n % 1000000) <> 269696)
|> Seq.head |> printfn "%d"