IA Laboratorio 06 :: solucionado :D

holas (00)/ , aqui el material


 Descargar -Clase 06 Laboratorio de IA
 y abajo la solucion del problema planteado

IDEA:

recorrer al lista con el loop for ( se explica sola ,iterar recorriendo cada elemento de la lista , seteando en cada iteracion a x con cada elemento ) y agregar el elemento x a la lista aux segun cumpla la condicion , sacada a partir de lo que plantea el problema , luego si cumple crear una lista nuevo con el nuevo elemento , con la funcion cons ( cons [elemento] [lista]  ) , luego sobreescribir la lista actual con la generada ( setq [ var ] [ valor ] ) , por utlimo imprimir la lista con format ( el ~ : alt + 126 , con S , se usa pra indicar que ai se va remplasar por el valor de algun  simbolo , como la lista nueva ).nos vemos (00)/

(defun listar  (L)
(let(
     (aux nil)
     )
  (loop for x in L do
        (if(or (and (evenp x) ( > x 4 ) )
            (and (oddp x )( < x 30 )))
            (setq aux (cons x aux) )
        )
   )
  (format t "nueva lista:~A" aux )

)
)