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 <strong>de</strong> uso <strong>de</strong> LOOP:<br />
> (let ((res nil))<br />
(loop for x from 1 to 7 do<br />
(setf res (cons x res)))<br />
res)<br />
(7 6 5 4 3 2 1)<br />
> (loop for x from 1 to 7 collect (* x x))<br />
(1 4 9 16 25 36 49)<br />
> (loop for x from 1 to 7<br />
when (evenp x)<br />
collect (* x x))<br />
(4 16 36)<br />
> (loop for x from 1 to 7<br />
when (evenp x)<br />
summing (* x x))<br />
56<br />
> (loop for x from 1 to 7 by 2 collect (* x x))<br />
(1 9 25 49)<br />
> (loop for x in ’(1 3 5) summing x)<br />
9<br />
IA-I 2003–2004 CcIa Introducción a <strong>Lisp</strong> <strong>Lisp</strong>.31