initial commit

20.fs

@@ -0,0 +1,7 @@
+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