关于Tracepro marco语言（scheme）如何迭代
在里面写了这样一个小程序，不明白错在哪里，大家讨论一下
(define z 3)
(define y 6)
(define r 100)
(define (refl y z)
(define sphere1 (solid:sphere 0 y z r))
(if (< y 12)
(refl (+ y 1) z)
(define sphere0 (solid:sphere 0 0 0 r))
)
)
(define z 3)
(define y 6)
(define r 100)
(define (refl y z)
(define sphere1 (solid:sphere 0 y z r))
(if (< y 12)
(refl (+ y 1) z)
(define sphere0 (solid:sphere 0 0 0 r))
)
)
回复数 14
切换时间排序
需登录后查阅, 加载中......
