CL-USER> (do ((n 0 (1+ n))
(cur 0 next)
(next 1 (+ cur next)))
((= 10 n) cur))
55
LISP DO循环斐波那契额数列
最新推荐文章于 2019-12-26 17:38:26 发布
CL-USER> (do ((n 0 (1+ n))
(cur 0 next)
(next 1 (+ cur next)))
((= 10 n) cur))
55