Logo: curva de Hilbert

Otro lenguaje de programación que tuvo su pico de popularidad hace ya muchos años es Logo. Debido al enfoque del lenguaje no es apropiado mostrar cómo se hace la suma de dos número (es más, creo que no es posible hacer dicho programa en este lenguaje). En vez de ello presento el código fuente de un programa que realiza el interesante dibujo de la curva de Hilbert.

cs 
st

to hilbert :a :p :n
  if n < 1 [ stop ]
  lt p*90
  hilbert (a) (-p) n-1
  fd a
  rt p*90
  hilbert a p n-1
  fd a
  hilbert a p n-1
  rt p*90
  fd a
  hilbert (a) (-p) n-1
  lt p*90
  wait 0.1 ; 100 ms
end

pu 
setpos [200 (-200)] 
pd
hilbert 15 1 5
ht

Curva de Hilbert