小编ham*_*a B的帖子

在使用 haskell 并为项目 euler n\xc2\xb040 寻找解决方案的过程中，我发现这段代码非常快：

 p = concat [show n | n <- [1..]]\ndl x = p !! x\n\ny = [10^a - 1| a<-[0..6]]\ns = [digitToInt (dl b)::Int | b <-y]\n

但这非常慢，慢了几百万倍

p = foldl1 (++) (map show [1..1000000])\ndl x = p !! x\n\ny = [10^a - 1| a<-[0..6]]\ns = [digitToInt (dl b)::Int | b <-y]\n

有人可以向我解释为什么吗？谢谢