作为编程挑战的一部分,我需要从stdin读取以空格分隔的整数序列(在一行上),并将这些整数的总和输出到stdout。 所讨论的序列可以包含多达10,000,000个整数。
我有两种解决方案:一种是用Haskell(test.txt)编写的,另一种是等效的用Python 2(foo.py)编写的解决方案。 不幸的是,(已编译的)Haskell程序始终比Python程序慢,并且我不知为何要解释这两个程序之间的性能差异。 请参阅下面的基准部分。 如果有的话,我本来希望Haskell占上风...
我究竟做错了什么? 我该如何解决这一差异? 有加速我的Haskell代码的简便方法吗?
(有关信息,我使用的是2010年中的Macbook Pro,配备8Gb RAM,GHC 7.8.4和Python 2.7.9。)
test.txt
main = print . sum =<< getIntList
getIntList :: IO [Int]
getIntList = fmap (map read . words) getLine
(与test.txt编译)
test.txt
ns = map(int, raw_input().split())
print sum(ns)
基准测试
在下面,test.txt由一行由1000万个以空格分隔的整数组成。
# Haskell
$ time ./foo < test.txt
1679257
real 0m36.704s
user 0m35.932s
sys 0m0.632s
# Python
$ time python foo.py < test.txt
1679257
real 0m7.916s
user 0m7.756s
sys 0m0.151s