Tema Lisp - Dpto. Ciencias de la Computación e Inteligencia Artificial.
Tema Lisp - Dpto. Ciencias de la Computación e Inteligencia Artificial.
Tema Lisp - Dpto. Ciencias de la Computación e Inteligencia Artificial.
You also want an ePaper? Increase the reach of your titles
YUMPU automatically turns print PDFs into web optimized ePapers that Google loves.
Bucles con LOOP<br />
1<br />
Ejemplos:<br />
> (<strong>de</strong>fun factor (x)<br />
(or (loop for i from 2 to (sqrt x)<br />
thereis (when (= (mod x i) 0)<br />
i))<br />
x))<br />
FACTOR<br />
> (factor 35)<br />
5<br />
> (<strong>de</strong>fun es-primo (x)<br />
(= x (factor x)))<br />
ES-PRIMO<br />
> (es-primo 7)<br />
T<br />
> (es-primo 35)<br />
NIL<br />
> (loop for x from 2 to 100<br />
count (es-primo x))<br />
25<br />
IA-I 2003–2004 CcIa Introducción a <strong>Lisp</strong> <strong>Lisp</strong>.33