Barrapunto

lt 30, repeat 2 [fd 100 rt 60 fd 100 rt 120] Se me ponen los pelos de punta !!!!!!!! Vivan las tortugas !!!!!! Todavia conservo mi libro del IEISA de Madrid sobre LOGO , Qué recuerdos !!!! N.B.: Qué hacía este maravilloso programa en logo ????

Bonito paralelogramo.. :-)

Un ejemplo más acorde para mostrar la potencia del Logo:

http://www.cs.berkeley.edu/~bh/logo-sample.html

El Dr. Brian Harvey escribe en esa página:

"
to choices :menu [:sofar []]
if emptyp :menu [print :sofar stop]
foreach first :menu [(choices butfirst :menu sentence :sofar ?)]
end

And here's how you use it. You type

choices [[small medium large]
                  [vanilla [ultra chocolate] lychee [rum raisin] ginger]
                  [cone cup]]

and Logo replies

small vanilla cone
small vanilla cup
small ultra chocolate cone
small ultra chocolate cup
small lychee cone
small lychee cup
small rum raisin cone
small rum raisin cup
small ginger cone
small ginger cup
medium vanilla cone
medium vanilla cup
medium ultra chocolate cone
medium ultra chocolate cup
medium lychee cone
medium lychee cup
medium rum raisin cone
medium rum raisin cup
medium ginger cone
medium ginger cup
large vanilla cone
large vanilla cup
large ultra chocolate cone
large ultra chocolate cup
large lychee cone
large lychee cup
large rum raisin cone
large rum raisin cup
large ginger cone
large ginger cup
"

que es una forma potentísima de escribir una versión multilínea del zip de Haskell y otros lenguajes de programación, o más exactamente del zip3...

elegante, eh?

saluditos