代码之家 › 专栏 › 技术社区 › Stan Kurilin

scheme2lisp::定义函数并将其作为参数传递

scheme lisp functional-programming function

Stan Kurilin · 技术社区 · 14 年前

我需要将一些代码从Scheme转换为CommonLisp。现在,我有这样的东西:

(defun sum (term a next b)
  (if (> a b)
    0
    (+ (term a) (sum term (next a) b))))

(defun sum-int (a b)
  (defun (ident x) x)
  (sum ident a 1+ b))

但它会产生错误。

***-defun:函数名必须是符号,而不是(ident x)

请帮助我。谢谢

UPD 原代码:

(define (sum term a next b)
  (if (> a b)
    0
    (+ (term a) (sum term (next a) b))))

(define (sum-int a b)
  (defun (identity x) x)
  (define identity a 1+ b))

2 回复 | 直到 14 年前

Will Hartung 14 年前

(defun sum (term a next b)
  (if (> a b)
      0
      (+ (funcall term a) (sum term (funcall next a) next b))))

(defun sum-int (a b)
  (flet ((ident (x) x))
   (sum #'ident a #'1+ b)))

只需另一个带跳蚤的CL(未经测试)。

ivans 14 年前

我想我知道你在找什么了…

(defun sum (term a next b)
  (if (> a b)
      0
      (+ (funcall term a) (sum term (funcall next a) next b))))

(defun ident (x) x)

(defun sum-int (a b)
  (sum #'ident a #'1+ b))

或者更多的陈词滥调,没有明确的定义:

(defun sum-int (a b)
  (sum (lambda (x) x) a #'1+ b))

您需要引号才能获取函数对象,因为cl有单独的函数(用defun定义)和变量命名空间。

推荐文章

Amit Saha · Java Stream iterate在检查奇偶时不使用谓词

2 年前

nanounanue · 使用python和高级操作符的函数管道

6 年前

Zazaeil · 这个特定的递归可以用尾部优化的方式重写吗?

6 年前

Ben2209 · 将methodcaller和attrgetter与排序

6 年前

corvid · 使用ramda通过变量进行升序/降序

6 年前

OddDragon · Java8:使用IntStream作为自定义收集器的供应商参数

6 年前

MichaÅ Å rajer · 将int列表折叠到kotlin中的范围列表

6 年前

Saravana Kumar M · 如何使用java 8 streams和lambdas迭代并处理其值为元素列表的映射的值

6 年前

CodingNow · Scala:如何制作多种方法并逐一应用?

6 年前

Saber · 在使用流时,使用多个map()会比在单个map()中聚合所有逻辑花费更多的时间吗?

6 年前