problem 40
着陸したら全く終わらなかった。
main = print $ p p = map (d.(10^)) [0..6] d x = (g 190000)!!(x-1) g x = foldl f "" [1..x] where f x y = x++(show y)
ちょっとカンニングして以下。
Prelude Data.Char> product [digitToInt $ ([0..] >>= show) !! x | x<- take 7 $ iterate (*10) 1] 210 (0.06 secs, 132123632 bytes)
concatMapの実装がすごいんだろうなー なぜこんなに速いのか理解できない。