16 lines
331 B
FSharp
16 lines
331 B
FSharp
module _30
|
|
|
|
let sumOfFifth n =
|
|
common.numDigits n
|
|
|> Seq.map (fun d -> System.Math.Pow(float d, 5.0))
|
|
|> Seq.sum
|
|
|> int
|
|
|
|
let isSumOfFifth n =
|
|
sumOfFifth n = n
|
|
|
|
let sumOfSumOfFifthNumbers =
|
|
[2..200000]
|
|
|> List.map (fun n -> (n,isSumOfFifth n))
|
|
|> List.filter (fun r -> snd r)
|
|
|> List.sumBy fst |