Appeler une fonction en paramètre d'un mapcar lambda

Bonjour,

J'essaie d’exécuter ma fonction :

Code:

---

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

---

Code:

---

(newopen2 '(1 2 3) '(g1 g2 g3 m1 m2 m3 p1 p2 p3))

---

Avec g1 g2 g3 etc :

Code:

---

1 2 3 4 5 6 7 8 9

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

---

Seulement j'ai une erreur : Argument to apply/funcall is not a function: (LAMBDA (Y) ((EVAL Y) FELEM)).

Comment résoudre ce problème ?

Merci d'avance !

Bonjour,

Peut être en utilisant newopen2 plutôt que newopen dans l'appel de fonction

Code:

---

1 2	_$ (newopen2 '(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)

---

A+

Oui pardon c'est newopen2 que j'utilise mais j'ai fais différents test c'est pour ca que je n'ai pas copié collé la bonne execution

Code:

---

1 2 3 4 5 6 7 8 9 10

<en2 (felem lop) (mapcar '(lambda (y) ((eval y) felem)) lop)) NEWOPEN2 Break 24 [34]> (newopen2 '(1 2 3) '(g1 g2 g3 m1 m2 m3 p1 p2 p3))   *** - FUNCALL : L'argument (LAMBDA (Y) ((EVAL Y) FELEM)) n'est pas une fonction. Pour obtenir une fonction dans l'environnement courant, écrire (FUNCTION ...). Pour obtenir une fonction dans l'environnement global, écrire (COERCE '... 'FUNCTION).

---

J'utilise CLISP 2.49 sur windows (même problème avec LispWorks)

Dans mon dialecte Vlisp (Lisp pour AutoCAD), la syntaxe est reconnu. As tu fais un teste en remplaçant lambda par une fonction nommé pour voir..

Même problème avec une autre fonction :s

Si c'est bien en common lisp que tu écris, tu dois échapper le nom de la fonction par un '#' (contrairement aux autres dialectes comme Scheme ou Clojure):

Code:

---

(mapcar #'(lambda (y) ((eval y) felem)) lop))

---

Mais ton code ne fonctionnera pas pour autant...
Qu'essaies-tu de faire exactement? cela pourrait aider à t'aider :)

Si l'idée est d'appeler les fonctions dans lop sur felem, il y a qd même plus simple!

Code:

---

1 2 3

(defun apply-fns (lop felem) (dolist (fn lop) (funcall fn felem)))

---

ou pour garder l'appel à mapcar:

Code:

---

1 2	(defun apply-fns (lop felem) (mapcar #'(lambda (x) (funcall x felem)) lop))

---

Citation:

---

Envoyé par Shakto

J'essaie d’exécuter ma fonction :

Code:

---

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

---

Code:

---

(newopen2 '(1 2 3) '(g1 g2 g3 m1 m2 m3 p1 p2 p3))

---

---

Il pourrait être utile de préciser quel dialecte de lisp tu utilises (Common Lisp, Scheme, autre).

Citation:

---

Seulement j'ai une erreur : Argument to apply/funcall is not a function: (LAMBDA (Y) ((EVAL Y) FELEM)).

---

Cf. la bible
D'après le message, il faut passer une fonction et non une liste à mapcar, d'où la première correction:

Code:

---

(defun newopen2 (felem lop) (mapcar (function (lambda (y) ((eval y) felem))) lop))

---

qui peut être simplifiée en utilisant la sharp-macro "#'" (cf. la bible et la bible):

Code:

---

(defun newopen2 (felem lop) (mapcar #'(lambda (y) ((eval y) felem)) lop))

---

Mais, à cause de "(eval y)", tu risques d'avoir un "undefined variable: G1" ou "Argument to apply/funcall is not a function: (EVAL Y)".

D'où la 2ème correction (très proche de celle de stendhal666 (en gardant les arguments dans le même sens)):

Code:

---

(defun newopen2 (felem lop) (mapcar #'(lambda (op) (funcall op felem)) lop))

---

Ca fonctionne avec funcall merci ;) (j'utilise Common Lisp)

En Common Lisp, on peut écrire tout simplement

Code:

---

(mapcar (lambda (x) (* x x)) '(1 2 3))

---

c'est-à-dire sans #' avant de lambda. En revanche '(lambda (x) (* x x)) avec un guillemet ne représenterait qu'une liste dont le premier élémente serait le symbole LAMBDA, le deuxième serait le list (X), et le troisième serait le list (* X X). Le guillemet supprime l'évalution de l'expression suivante.