Sieve of Eratosthenes 的 Haskell/Scheme 实现

flw

在我机器上 win_hate 这个版本比前面 MMMIX 那个在计算 10000 时快两个数量级。

1. flw@debian:~/study$ ghc --make -O2 3mix_2.hs
   
2. flw@debian:~/study$ time ./3mix_2 10000
   
3. 104743
   
4. 
   
5. real    0m4.027s
   
6. user    0m3.728s
   
7. sys     0m0.052s
   
8. flw@debian:~/study$ ghc --make -O2 win_hate.hs
   
9. flw@debian:~/study$ time ./win_hate 10000
   
10. 104743
    
11. 
    
12. real    0m0.103s
    
13. user    0m0.092s
    
14. sys     0m0.008s
    
15. flw@debian:~/study$

复制代码

[ 本帖最后由 flw 于 2008-9-25 09:20 编辑 ]