[已解决] haskell 如何高效地计算部分和？

win_hate

我以前也用 scheme 写过一个类似的，在

http://bbs3.chinaunix.net/viewth ... p;extra=&page=2

第 12，13 楼。 是 SICP 的一个练习。

x2

来一个不用stream的。

1. 
   
2. (use-modules (srfi srfi-1))
   
3. 
   
4. (define (calc l v s)
   
5.   (if (null? l)
   
6.       v
   
7.       (calc (cdr l) (append v (list s)) (+ (car l) s))))
   
8. 
   

复制代码

1. 
   
2. > (calc (iota 7 1) '() 0)
   
3. (0 1 3 6 10 15 21)
   

复制代码

win_hate

下面这段代码与你的很接近，使用了 fold

1. 
   
2. f z@(x:xs) y = (x+y):z
   

复制代码

1. 
   
2. *Main> (foldl f [0] [1..7])
   
3. [28,21,15,10,6,3,1,0]
   
4. *Main> reverse (foldl f [0] [1..7])
   
5. [0,1,3,6,10,15,21,28]
   

复制代码

x2

使用了srfi-1的fold和iota, 令程序看起来简洁了很多。

1. 
   
2. (use-modules (srfi srfi-1))
   
3. 
   
4. (define (f y ls) (cons (+ y (car ls)) ls))
   
5. (display
   
6. (reverse (cdr (fold f '(0) (iota 7 1)))))
   

复制代码