在mapcar lamb中调用函数

Shakto · 发表于 2022-7-5 22:18:26

你好

我有个问题，我做了9个函数（g1 g2 g3 m1 m2 m3 p1 p2 p3）
我想在mapcar函数中调用它们中的每一个，这9个函数都在我函数的arg中的一个列表中：

让我们看看g1的例子

(defun g1 (l) (if (eq (car l) 1) NIL (cons 1(cdr l))))

我的函数列表：（g1 g2 g3 m1 m2 m3 p1 p2 p3）

当我想调用他们获取该函数中的值时，它不起作用，请有人帮我？）

copy

(defun newopen (felem lop) (mapcar (lambda (y) (y felem)) lop))
(newopen '(1 2 3) '(g1 g2 g3 m1 m2 m3 p1 p2 p3))

hanhphuc · 发表于 2022-7-5 22:25:42

嗨，沙子，欢迎来到论坛，阅读第一篇
http://www.cadtutor.net/forum/showthread.php?9184-代码发布指南

可能是打字错误？
lambda报价缺失？

copy

[color="red"][b]'[/b][/color](lambda...)

而且

copy


if list=
'(g1 g2 g3 m1 m2 m3 p1 p2 p3) ;
you need, (([color="red"]eval[/color] y) felem)
or just
([color="red"]list[/color] g1 g2 g3 m1 m2 m3 p1 p2 p3)

我们不知道其余部分如何工作g2 g3 m2。。。etc正在工作或有bug？

Shakto · 发表于 2022-7-5 22:30:01

不知道eval函数，仍然无法使用newopen函数：

copy

(defun newopen (felem lop) (mapcar '(lambda (y) ((eval y) felem)) lop))

我有一个错误：FUNCALL：参数（lambda y）（（eval y）felem））不是函数

其他功能g1 g2 g3等。。。正在工作：

copy

(defun g1 (l) (if (eq (car l) 1) NIL (cons 1(cdr l))))
(defun g2 (l) (if (eq (car l) 2) NIL (cons 2(cdr l))))
(defun g3 (l) (if (eq (car l) 3) NIL (cons 3(cdr l))))
(defun m1 (l) (if (eq (car l) 1) NIL (if (eq (cadr l) 1) NIL (if  (eq (car l) (cadr l)) NIL (cons (car l) (cons 1 (cddr l)))))))
(defun m2 (l) (if (eq (car l) 2) NIL (if (eq (cadr l) 2) NIL (if  (eq (car l) (cadr l)) NIL (cons (car l) (cons 2 (cddr l)))))))
(defun m3 (l) (if (eq (car l) 3) NIL (if (eq (cadr l) 3) NIL (if  (eq (car l) (cadr l)) NIL (cons (car l) (cons 3 (cddr l)))))))
(defun p1 (l) (if (eq (car l) 1) NIL (if (eq (caddr l) 1) NIL (if (eq (car l) (caddr l)) NIL (if (eq (cadr l) (caddr l)) NIL (append (list(car l)) (list(cadr l)) (cons 1 ())))))))
(defun p2 (l) (if (eq (car l) 2) NIL (if (eq (caddr l) 2) NIL (if (eq (car l) (caddr l)) NIL (if (eq (cadr l) (caddr l)) NIL (append (list(car l)) (list(cadr l)) (cons 2 ())))))))
(defun p3 (l) (if (eq (car l) 3) NIL (if (eq (caddr l) 3) NIL (if (eq (car l) (caddr l)) NIL (if (eq (cadr l) (caddr l)) NIL (append (list(car l)) (list(cadr l)) (cons 3 ())))))))

hanhphuc · 发表于 2022-7-5 22:39:55

无评估

copy


(defun newopen1 (felem lop) (mapcar '(lambda (y) ([color="red"]y[/color] felem)) lop))
(newopen1 '(1 2 3) ([color="blue"]list[/color] g1 g2 g3 m1 m2 m3 p1 p2 p3))

带eval：

copy


(defun newopen2 (felem lop) (mapcar '(lambda (y) (([color="blue"][b]eval[/b][/color] y) felem)) lop))
(newopen2 '(1 2 3) [color="red"][b]'[/b][/color](g1 g2 g3 m1 m2 m3 p1 p2 p3))

这可以解释：报价

这是你的回报值？

copy


;(nil (2 2 3) (3 2 3) nil nil (1 3 3) nil (1 2 2) nil)

Shakto · 发表于 2022-7-5 22:43:17

是的，这是我的返回值。

我对你的两个函数都有错误：

newopen1=>错误：变量G1未绑定。
newopen2=>apply/funcall的参数不是函数：（LAMBDA（Y）（（EVAL Y）FELEM））。

hanhphuc · 发表于 2022-7-5 22:51:11

也许在2007版之后，lambda需要优化，尽管没有编译？？

copy


(defun newopen2 (felem lop) (mapcar ([color="blue"]function[/color](lambda (y) ((eval y) felem))) lop))
(newopen2 '(3 2 1) '(g1 g2 g3 m1 m2 m3 p1 p2 p3))
;((1 2 1) (2 2 1) nil (3 1 1) nil nil nil (3 2 2) nil)

Shakto · 发表于 2022-7-5 22:51:25

不知道

已经试过了，它告诉我：（eval y）必须是LAMBDA表达式

Lee Mac · 发表于 2022-7-5 23:00:45

正如hanhphuc所建议的那样，以下内容是正确的：

copy

(defun newopen ( felem lop ) (mapcar '(lambda ( y ) ((eval y) felem)) lop))

在我的测试中：

copy

_$ (newopen '(1 2 3) '(g1 g2 g3 m1 m2 m3 p1 p2 p3))
(nil (2 2 3) (3 2 3) nil nil (1 3 3) nil (1 2 2) nil)

您使用什么软件/方法来评估代码？
您是在AutoCAD 2014命令行还是在VLIDE控制台中输入代码？

Shakto · 发表于 2022-7-5 23:04:20

我在windows>上使用的是CLISP 2.49。

Shakto · 发表于 2022-7-5 23:16:44

该死，我想在AutoCAD之前在CLISP上试试我的程序

[编程交流] 在mapcar lamb中调用函数

发表回复

精选推荐