scheme - 如何在这里正确地增加变量？

Question

(define (teken-n x y n)
  (if (not (zero? n))
      (begin
        (teken-symbolen x y)
        (teken-n x y (- n 1)))))

(define (teken-symbolen-combinatie x y n)
  (if (not (zero? n))
      (begin
        (let ((acc 0))
          (teken-n x y (+ acc 1))
          (newline)
          (teken-symbolen-combinatie x y (- n 1))))))

使用(teken-n x y n)是打印2个符号，'x 'y以xyx的形式打印n次1 行，没有任何空格。它工作正常。

我试图用 (teken-symbolen-combinatie x y n) 完成的输出是

(teken-symbolen-combinatie '- '* 3)
-*-
-*--*-
-*--*--*-

我的代码只给出了第一个符号组合，在这个例子中 -*- 用换行符分隔 3 次。这意味着我的第一个函数的最后一个变量没有正确递增。我不明白为什么。

编辑:更正问题中的错误

Answer 1

没有增加的是acc。函数 + 返回一个新值，它不会更改任何参数。

Scheme 中通常的方法是让一个内部循环有另一个变量(这似乎是您的 acc 的目的)增加到 n。您不需要外部函数循环。