如何在函数中定义内部函数？

Question

(defun div618 (p1 p2) 
"golden split" 
    (let ((ratio '(0. 0.191 0.236 0.382 0.5 0.618 0.809 1.)) 
      (price (lambda (r) (if (<= p1 p2) (+ p1 (* (- p2 p1) r)) (- p1 (* (- p1 p2) r)))))) 
     (if (<= p1 p2) 
      (dolist (r (reverse ratio)) (format t "-------~d ~d-------~%" r (price r))) 
      (dolist (r ratio) (format t "-------~d ~d-------~%" r (price r)))))) 

（div618 1600 6000）

*** - EVAL: undefined function PRICE 
The following restarts are available: 
USE-VALUE  :R1  Input a value to be used instead of (FDEFINITION 'PRICE). 
RETRY   :R2  Retry 
STORE-VALUE :R3  Input a new value for (FDEFINITION 'PRICE). 
ABORT   :R4  Abort main loop 

为什么不能内部函数 “价格” 可以用吗？

真诚！

Answer 1

Common Lisp对函数和变量绑定有不同的命名空间;本页面对此进行了详细解释：http://cl-cookbook.sourceforge.net/functions.html。我想你想尝试的是这样的：

(defun div618 (p1 p2) 
"golden split" 
    (let ((ratio '(0. 0.191 0.236 0.382 0.5 0.618 0.809 1.)) 
      (price (function (lambda (r) (if (<= p1 p2) (+ p1 (* (- p2 p1) r)) (- p1 (* (- p1 p2) r))))))) 
     (if (<= p1 p2) 
      (dolist (r (reverse ratio)) (format t "-------~d ~d-------~%" r (funcall price r))) 
      (dolist (r ratio) (format t "-------~d ~d-------~%" r (funcall price r)))))) 

未经测试！