相关疑难解决方法(0)

这是我在控制台中得到的:

ghci> sum $ takeWhile (<10000000) [1..]
49999995000000
(11.96 secs, 2174569400 bytes)

那超过2GB!我想sum可以丢弃它已经总结的任何东西.你会怎么写这个？