如何在Scheme中使用多個語句循環？

Question

問題
計算列表中出現的次數，它們必須相鄰。例如：(a a b b c c a e)，返回 ((a 2) (b 2) (c 2) (a 1) (e 1))。

我試過，

(define (loop lst) 
    (let ((i 1) (j 0)) 
    (do() 
     [(> j (- (length lst) 2))] 
     (if (eq? (car lst) (cadr lst)) 
      (set! i (+ i 1)) 
      (display i) 
    ) 
     (
     (set! lst (cdr lst)) 
     (set! j (+ j 1)) 
    ) 
    ) 
) 
) 

運行時，DrScheme抱怨

procedure application: expected procedure, given: #<void>; arguments were: #<void> 

我如何使用if或do循環像這裏面的多條語句？

謝謝，

Answer 1

哦，你想計算運行長度！你猜怎麼了！ fold的另一個問題！ :-P

(define (run-lengths lst) 
    (fold-right (lambda (elem result) 
       (if (and (pair? result) 
         (equal? elem (caar result))) 
        (cons (cons elem (+ (cdar result) 1)) (cdr result)) 
        (cons (cons elem 1) result))) 
       '() lst)) 

由於您使用的球拍（我的版本返回運行長度爲點對，而不是長度爲2的列表），你可以使用foldr代替fold-right;這樣，你就不需要加載SRFI 1.我的眼睛！