# Project Euler Problem 48

Project Euler Problem 48 solution:

open System.Numerics let lastTen = 10000000000I let problem048 () = [1I..1000I] |> Seq.fold (fun acc i -> acc + bigint.ModPow(i,i,lastTen)) 0I |> fun x -> bigint.ModPow(x,1I,lastTen)

Advertisements

Leave a Comment