Problem 40

Problem 40
Filename: prob40.hs

-- Prob 40
-- An irrational decimal fraction is created by concatenating the positive integers:
-- 
-- 0.123456789101112131415161718192021...
-- 
-- It can be seen that the 12th digit of the fractional part is 1.
-- 
-- If dn represents the nth digit of the fractional part, find the value of the following expression.
-- 
-- d1  d10  d100  d1000  d10000  d100000  d1000000

import Char
d n = digitToInt(concat(map (show) [0..1000000]) !! n)

answer = product(map d (map (10^) [1..6]))
--answer = (d 1)*(d 10)*(d 100)*(d 1000)*(d 10000)*(d 100000)*(d 1000000)

---

syntax highlighted by Code2HTML, v. 0.9.1