Commits

Martin Geisler committed 4a0fb2c

Problem 40.

Comments (0)

Files changed (1)

+
+import Data.Char
+
+fraction = concat $ map show [1..]
+
+p40 = d1 * d10 * d100 * d1000 * d10000 * d100000 * d1000000
+    where
+      d1 = digitToInt $ fraction !! 0
+      d10 = digitToInt $ fraction !! 9
+      d100 = digitToInt $ fraction !! 99
+      d1000 = digitToInt $ fraction !! 999
+      d10000 = digitToInt $ fraction !! 9999
+      d100000 = digitToInt $ fraction !! 99999
+      d1000000 = digitToInt $ fraction !! 999999