10 lines
195 B
FSharp
10 lines
195 B
FSharp
module _48
|
|
|
|
let series n =
|
|
[1..n]
|
|
|> List.map (fun d-> System.Numerics.BigInteger.Pow(bigint d, d))
|
|
|> List.fold (+) 0I
|
|
|
|
let seriesEnd =
|
|
series 1000
|
|
|> common.lastDigits 10 |