Scheme/Lisp Tail recursion:

Scheme/Lisp Tail recursion:

(define foo (lambda (x)
(let loop(lambda((i n)(k 1))
(if (= i 0)k
(loop (- i 1) (* i k)))))))
鹧鸪天，尾递归
山上林荫布谷闻，啼声似已悟经纶。
调神静坐调息气，遍历循环闹梦魂。
何处止？但求真，清晨苦思到黄昏。
常年困惑今春了，雨打梨花深闭门。
------------------------------------此诗乃改编-----------------------