IA Laboratorio 06 :: solucionado :D

<div class="separator" style="clear: both; text-align: center;"><a href="http://clientes.inquba.com.pe/euroidiomas/inteligencia_artificial/img/logo_LispWorks1.gif" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" src="http://clientes.inquba.com.pe/euroidiomas/inteligencia_artificial/img/logo_LispWorks1.gif" /></a></div><div class="separator" style="clear: both; text-align: center;"><a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEj60OBYuf5fYE6Dl9XO4XHZWjdpa8CcVl6BxkpJNhSk-9E8yRMdXyatu_MGn-ZptRQz4oyOlxHvpTPRtYwhaDugQ3DXiJaNWPUMQJG8KznLb-Bl1Ofgjvi6yU3DKhwfgQuejb-xUksUaoA/s1600/Dibujo.bmp" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><br /> </a></div><br /> holas (00)/ , aqui el material<br /> <iframe frameborder="0" height="361px" src="https://docs.google.com/viewer?a=v&pid=explorer&chrome=false&embedded=true&srcid=0B1Q0oJwRRKz8NjhkYzEyMmUtZjI3NS00ODMzLTlkY2QtMDJmNmNjOTFkYzdi&hl=es" width="100%"></iframe><br /> <br /> <a href="http://www.mediafire.com/?4mp5gi3p1ugu4dw"> Descargar -Clase 06 Laboratorio de IA</a><br />  y abajo la solucion del problema planteado<br /> <br /> <div style="background-color: white; color: red;"><b>IDEA: </b></div>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)/<br /> <script src="https://resources-externs.googlecode.com/svn/trunk/blog_files/shCore.js" type="text/javascript"> </script><br /> <script src="https://resources-externs.googlecode.com/svn/trunk/blog_files/OnSinfoJavaScript_sintax.js" type="text/javascript"> </script><br /> <script type="text/javascript"> OnSinfo.all(); </script><br /> <pre class="brush: js">(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 ) ) ) </pre>

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 ...