[Дима_]

Друзья подскажите, надо каким-то образом запустить функцию переданную в виде списка, точно это делал, но возможно, это был не autolisp (common - хотя возможно, там это через defmacro - что-то головушка совсем не соображает - запутался в диалектах и языках). Надо что то вроде
(defun test (x func)
;здесь каким-то волшебным способом запустить func(x)
);end of test
и типа при запуске (test 5 '(* x 2)), возращалось-бы 10.

[VVA]

Код:

[Выделить все]

(defun test1 (y)(* y 2))
(defun test (x func)
  ((EVAL func) x)
;здесь каким-то волшебным способом запустить func(x)
);end of test

;;;пРИМЕР
(test 5 'test1)

[CB]

Код:

[Выделить все]

 
(defun test (x f)
  (eval f)
)
(test 5 '(* x 5))

Упс... опоздал...

[Дима_]

ААА!!! - все верно, посмотрел на твой код и сразу вспомнил - вот так это было:

Код:

[Выделить все]

(defun test (x func)
(apply (car func) (cdr (subst x 'x func)))
);end of test

ну или если "перииначить" твой:

Код:

[Выделить все]

(defun test (x func)
(eval (subst x 'x func))
);end of test

Спасибо всем - даже полегчало на душе.

p.s. СВ - вобще круто

[Елпанов Евгений]

возможно, имеется в виду функция LET из СommonLisp?

Код:

[Выделить все]

(setq x 2 y 4)
(let '((x 3)
       (y (+ x 2)))
     '(* x y))

тогда на AutoLISP, функция будет выглядеть так:

Код:

[Выделить все]

(defun let(a b)
 (eval (cons (list 'lambda (mapcar 'car a) b) (mapcar 'cadr a)))
)

ps. всем интересующимся, будет интересно почитать книгу "Структура и интерпретация компьютерных программ" - побольше бы таких книг...