scheme2lisp :: define function을 매개 변수로 전달하십시오.

Question

Scheme에서 Common Lisp로 일부 코드를 번역해야합니다. 이제 다음과 같은 내용이 있습니다.

(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)

도움말 나를 plese해야합니다. 감사

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)) 

Answer 1

(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 테스팅 (테스트되지 않음).

Answer 2

내가의 요점을 가지고 생각 명시 적으로 답하라를 defuning없이, 대한 ...

(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)) 

이상의 CLish보고 있었다 :

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

CL에는 함수 (defun으로 정의)와 변수에 대한 별도의 네임 스페이스가 있으므로 함수 객체를 가져 오려면 # '따옴표가 필요합니다.