16 lines
251 B
FSharp
16 lines
251 B
FSharp
module _41
|
|
|
|
open common
|
|
|
|
let panDigital =
|
|
|
|
// let numListToBigint s =
|
|
// s
|
|
// |> List.map string
|
|
// |> List.fold (+) ""
|
|
// |> bigint.Parse
|
|
|
|
primeArray 7654321
|
|
|> arrayToRevSeq
|
|
|> Seq.filter isPanDigital
|