9 lines
177 B
FSharp
9 lines
177 B
FSharp
module _25
|
|
|
|
let digitCount (d:bigint) =
|
|
(string d).Length
|
|
|
|
let find1000 =
|
|
common.fibinoci
|
|
|> Seq.findIndex (fun f -> digitCount f = 1000)
|
|
|> (+) 1 |