我刚知道 Scheme 里有 循环，汗。。。
于是我用do 写了这一小段代码，算的是百钱买百鸡。
在我知道 do 之前，我没办法把这程序写出来，因为我不知道用递归要怎么写。求指点
(憋屈)

每次循环出口得干点什么，我不知道要干什么，于是 'Done
if 语句得有个 else，我不知道要用 else干什么，于是 'finding...

(letrec ((iter
----------(lambda (x y z)
------------(cond ((> z 20)
-------------------(iter x (+ y 1) 0))
------------------((> y 33)
-------------------(iter (+ x 3) 0 0))
------------------((> x 99) 'done)
------------------((and (= (+ (/ x 3)
------------------------------(* y 3)
------------------------------(* z 5))
---------------------------100)
------------------------(= (+ x y z) 100))
-------------------(display (list z y x))
-------------------(newline))
------------------(else (iter x y (+ z 1)))))))
--(iter 0 0 0))

看看漂亮的缩进
(letrec ((iter
　　　　　(lambda (x y z)
　　　　　　(cond ((> z 20)
　　　　　　　　　 (iter x (+ y 1) 0))
　　　　　　　　　((> y 33)
　　　　　　　　　 (iter (+ x 3) 0 0))
　　　　　　　　　((> x 99) 'done)
　　　　　　　　　((and (= (+ (/ x 3)
　　　　　　　　　　　　　　　(* y 3)
　　　　　　　　　　　　　　　(* z 5))
　　　　　　　　　　　　　 100)
　　　　　　　　　　　　(= (+ x y z) 100))
　　　　　　　　　 (display (list z y x))
　　　　　　　　　 (newline))
　　　　　　　　　(else (iter x y (+ z 1)))))))
　(iter 0 0 0))

路过