Lisp: Quadrature toutes les valeurs dans une liste

Question

S'il vous plaît gardez avec moi comme je suis encore assez nouveau à lisp. Le but de ma fonction (appelée dans ce cas test) est de placer toutes les valeurs dans une liste et de renvoyer une nouvelle liste.

Par exemple, la liste d'origine (1 2 3). La nouvelle liste devrait être (1 4 9)

Ceci est actuellement ce que j'ai jusqu'à présent,

(defun test (n) 
    (cond ((null n) nil) 
     (t (cons * (car n) (car n)) 
      (test (cdr n))))) 

Cependant, je continue à obtenir une erreur et je suis tout à fait incertain quant à la façon de procéder. Toute aide serait grandement appréciée!

Answer 1

Dans votre code, il y a deux problèmes: la syntaxe de cond (l'équivalent de else d'autres langues est T), et le fait que l'opérateur de multiplication est manquante.

Ceci est une version de travail:

(defun test (n) 
    (cond ((null n) nil) 
     (t (cons (* (car n) (car n)) 
       (test (cdr n)))))) 

De plus, notez que cond est le plus souvent utilisé lorsque plusieurs conditions, alors que if est utilisé pour une seule condition:

(defun test (n) 
    (if (null n) 
     nil 
     (cons (* (car n) (car n)) 
      (test (cdr n)))))