Project Euler – Problem 48 Solution

Problem

The series, 1¹ + 2² + 3³ + … + 10¹⁰ = 10405071317.

Find the last ten digits of the series, 1¹ + 2² + 3³ + … + 1000¹⁰⁰⁰.

Solution

let number = [1..1000] |> List.map (fun n -> pown (bigint(n)) n) |> List.sum

let answer = 
    number.ToString().ToCharArray() 
    |> Array.rev
    |> Seq.take 10 
    |> Seq.toArray 
    |> Array.rev