Discussion :

[belaidw]

salut,

(defun unifierAtomes (E1 E2)
(if (NOT(atom E1))(PROGN (setq temp E1) (setq E1 E2)(setq E2 temp)))
;;(if (equal E1 E2) 'nil)
;;(if (estUneVariable E1) (PROGN (if (apparait E1 E2) 'ECHEC) (return E1)))
;;(if (estUneVariable E2) (PROGN (return (append E1 E2)) (return 'ECHEC)))))



dans cette fonction je dois retourner plusieurs variables achake cdt , j'ai une erreur "ABORT" et je sais pas comment corriger ma fonction

Veuillez bien m'aider

[Garulfo]

salut,

(defun unifierAtomes (E1 E2)
(if (NOT(atom E1))(PROGN (setq temp E1) (setq E1 E2)(setq E2 temp)))
;;(if (equal E1 E2) 'nil)
;;(if (estUneVariable E1) (PROGN (if (apparait E1 E2) 'ECHEC) (return E1)))
;;(if (estUneVariable E2) (PROGN (return (append E1 E2)) (return 'ECHEC)))))

dans cette fonction je dois retourner plusieurs variables achake cdt , j'ai une erreur "ABORT" et je sais pas comment corriger ma fonction

Veuillez bien m'aider

Tu essayes de faire un swap là ?? Un échange de deux valeurs.
Pourquoi veux tu retourner qqchose ?

L'évaluateur d'expression lisp retourne la dernière valeur évalué lorsque tu effectues une séquence. Ça n'existe pas return. C'est comme en mathématique. Tu n'as jamais vu ça en math :
f(x) = return x + 2
Bin c'est pareil en lisp

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

(defun (f x) (+ x 2 ))

Merci, d'utiliser la balise code. Sinon je ne te lirais plus

[Garulfo]

Je suppose que c'est ??