如何在Scheme中的do循环中使用多个语句？

Question

问题
计算列表中出现的次数，它们必须是相邻的。例如：(aabbccae)，返回 ( (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 的列表。）由于您使用的是 Racket，因此可以使用 foldr 而不是 fold-right;这样，您就不需要加载 SRFI 1。