5000 Elefantes - Logo

La tortuga inteligente...

Logo aparecio por primera vez en 1967, y es un lenguaje de programacion de alto nivel, utilizado principalmente con fines didacticos, ya que es de facil aprendizaje, y tiene buenas capacidades graficas.

Para ejecutar el codigo hace falta un interprete, como MSWLogo, y se invoca con el comando "sing 1".


;tortamil elefantes
;jon tohrs
;send me money -_-

to elefante :i
    if :i = 1 [output [1 elefante]]
    output se :i [ elefantes]
end

to verse :i
    pr (se elefante :i)
    ifelse :i=1 [pr [se columpiaba]] [pr [se columpiaban]]
    pr [sobre la tela]
    pr [de una arana]
    ifelse :i=1 [pr [como veia]] [pr [como veian]]
    pr [que resistia]
    ifelse :i=1 [pr [fue a llamar]] [pr [fueron a llamar]]
    pr [a otro elefante]
    pr []
end

to sing :i
    if :i = 5001 [print [y asi hasta el infinito...]]
    if :i = 5001 [stop]
    verse :i
    sing :i + 1
end