McCarthy 91 function

今天下午数学课上老师讲到这个函数——McCarthy 91 function,原理是这样的:

写成Lisp函数就是:

(defun mc91(x) (if(> x 100)(- x 10)(mc91 (mc91 (+ x 11)))))