如何在球拍中循环？

Question

我想循环这一个，直到nr-of-bread是2如何做到这一点？

(when (and (>= money price-of-bread) (< nr-of-bread 2)) 
     (set! nr-of-bread (+ nr-of-bread 1)) (set! money (- money price-of-bread))) 

Answer 1

实现通过一个名为let正在使用尾递归的最好方法：

(let loop ((nr-of-bread 0) 
      (rest money)) 
    (if (and (>= rest price-of-bread) (< nr-of-bread 2)) 
    (loop (add1 nr-of-bread) (- rest price-of-bread)) 
    nr-of-bread))