1

我正在尝试实现 Church Pair Lambda Calc。使用 CLisp 的样式。

根据维基百科：

pair ≡ λx.λy.λz.z x y

到目前为止，这是我的代码：

 (defvar PAIR
         #'(lambda(x)
                 #'(lambda(y)
                         #'(lambda(z)
                                 (funcall (funcall z x) y)))) )

这些是我的第一个和第二个功能：

(defvar FIRST
        #'(lambda(p)
                (funcall(p TRUE)))
)

(defvar SECOND
        #'(lambda(p)
                (funcall(p FALSE)))
)

这 2 个函数从 Int 转换为 ChurchNumber

(defun church2int(numchurch)
    (funcall (funcall numchurch #'(lambda (x) (+ x 1))) 0)
)

(defun int2church(n)
    (cond
        ((= n 0) #'(lambda(f) #'(lambda(x)x)))
        (t #'(lambda(f) #'(lambda(x) (funcall f
            (funcall(funcall(int2church (- n 1))f)x))))))

)

所以，我要做的是：

(setq six (int2church 6))
(setq four (int2church 4))

进而：

(setq P (funcall (funcall PAIR six) four))

我有：

#<FUNCTION :LAMBDA (Y) (FUNCALL (FUNCALL F X) Y)>

所以如果我这样做：

(funcall #'FIRST P)

我有这个错误：

*** - FIRST: #<FUNCTION :LAMBDA (Y) (FUNCALL (FUNCALL F X) Y)> is not a list

我看不出我做错了什么。任何帮助，将不胜感激。

谢谢

4

1 回答 1

3

  1. 你正在使用#'FIRST.
    这意味着它使用的是函数FIRST，而不是您定义的变量。FIRST（来自标准库）是 的另一个名称car，即它返回列表的第一个元素（因此错误抱怨P不是列表）。
    修复：(funcall FIRST P)
    这将导致错误*** - EVAL: undefined function P

  2. 这是由您的定义引起的FIRST：#'(lambda (p) (funcall (p TRUE)))
    这意味着：返回一个带有单个参数的 lambda 函数p。该参数被忽略。相反，调用将变量的值作为参数p传递的全局函数： . 然后调用as (another) function:的结果。 修复： 这将导致错误TRUE(p TRUE)p(funcall ...)
    #'(lambda (p) (funcall p TRUE))
    *** - :LAMBDA: variable TRUE has no value

  3. 那是因为你还没有真正定义TRUE过FALSE。
    修复：定义TRUE和FALSE。

于 2012-11-24T02:22:30.763 回答