7 lines
187 B
FSharp
7 lines
187 B
FSharp
module _20
|
|
|
|
let getSum =
|
|
let n = [ 1I .. 100I ] |> List.fold (*) 1I
|
|
(string n).ToCharArray()
|
|
|> Array.map (string >> int)
|
|
|> Array.fold (fun acc d -> acc + d) 0 |