Função Lisp

ZippoMontefiore

Power Member
Olá, pessoal.

Fiz uma função que tem como objectivo substituir um elemento duma lista por outro recebido, mas o código não me está a funcionar, pois ele retorna sempre o mesmo, ou seja, a lista intocada.

Código:
;;;; posx é a lista e posy é o elemento que recebe
(defun fazer_jogada (posx posy)
   
     
 (cond
   ((null posx) (list posy))
   ((= posy (car posx))(cons 2 (cdr posx)))
   (T (fazer_jogada (rest posx) posy))
    ;;;;(T(substitute 2 posy posx)
 )        
   (print posx)    
  )

Obrigado. ;)
 
Última edição pelo moderador:
Back
Topo