8 lines
223 B
FSharp
8 lines
223 B
FSharp
module _40
|
|
|
|
let positiveIntegerConcat =
|
|
common.allIntegers
|
|
|> Seq.collect common.numDigits
|
|
|> common.takeIndexes ([1;10;100;1000;10000;100000;1000000]
|
|
|> List.map (fun d -> d - 1))
|
|
|> Seq.fold (*) 1 |