Question

我想要一个带整数的函数，并以church encoded函数的形式返回该数字。

我在newlisp中实现了这个目标：

(define (reduce stencil sq) (apply stencil sq 2))
(define (num n)  (cond
   ((= n 0) 'x)
   ((< n 2) '(f x))
   (true (reduce (fn (l i) (list 'f l)) (cons '(f x) (sequence 2 n)) ))))
(define (church-encode n)
  (letex ((body (num n)))
    (fn (f x) body)))

如果我打电话（教会编码0）我会回到教会编码的零的lambda：

(lambda (f x) x)

而且（教会编码3）将产生：

(lambda (f x) (f (f (f x))))

但我想在Javascript中做同样的事情。最好不要像我在这里所做的那样诉诸弦乐：

(function (_) {
    var asnum = function(x) { return x((function(x) {return x+1;}), 0); };
    function church_encode(n) {
        function genBody() {
            return _.reduce(_.range(n), function(e,x) {
                return e.replace("x", "f(x)");
            }, "x");
        }
        eval("var crap = function (f, x) { return "+genBody()+"; }");
        return crap;
    }
    var encoded_nums = _.map(_.range(11), church_encode);
    var numerics = _.map(encoded_nums, asnum);
    console.log(numerics);
})(require('lodash'));

Answer 1

(function () {
    function range(n){
        var l = [];
        for(var i = 0; i < n; i++){
            l.push(i);
        }
        return l;
    }
    function church_encode(n) {
        if(n < 1)
            return function(f, x) { return x; };
        if(n === 1)
            return function(f, x) { return f(x); };

        function succ (n) {
            return function(f,x) {
                return n(f,f(x));
            }
        }
        return range(n).reduce(function(a){
            return succ(a);
        }, function (f,x) { return x; });
    }
    function to_int(f){
        var i = 0;
        f(function(){ i++ });
        return i;
    };
    console.log(to_int(church_encode(5)));
})();

在Javascript中为任意整数生成教会编码数

1 个答案: