iniciar-programa

define-nueva-instruccion vuelta como inicio
repetir 2 veces
gira-izquierda;
fin;

define-nueva-instruccion acum como inicio
mientras junto-a-zumbador hacer
avanza;
vuelta;
avanza;
mientras junto-a-zumbador hacer
coge-zumbador;
mientras frente-libre hacer
avanza;
gira-izquierda;
si frente-libre entonces inicio
avanza;
gira-izquierda;
acum;
fin
sino inicio
vuelta;
mientras frente-libre hacer
avanza;
vuelta;
si no junto-a-zumbador entonces inicio
mientras no junto-a-zumbador hacer
avanza;
fin;
gira-izquierda;
avanza;
mientras algun-zumbador-en-la-mochila hacer
deja-zumbador;
fin;
fin;
define-nueva-instruccion deja(n) como inicio
si junto-a-zumbador entonces inicio
coge-zumbador;
deja(sucede(n));
fin sino inicio
gira-izquierda;
mientras frente-libre hacer
avanza;
gira-izquierda;
mientras derecha-bloqueada hacer
avanza;
repetir 3 veces
gira-izquierda;
avanza;
repetir n veces
deja-zumbador;
fin;
fin;

define-nueva-instruccion refedi(n) como inicio
si junto-a-zumbador entonces inicio
coge-zumbador;
refedi(sucede(n));
fin
sino inicio
vuelta;
avanza;
repetir n veces
coge-zumbador;
deja(0);
fin;
fin;


define-nueva-instruccion difere(n) como inicio
si junto-a-zumbador entonces inicio
coge-zumbador;
difere(sucede(n));
sal-de-instruccion;
fin
sino inicio
avanza;
repetir n veces
si junto-a-zumbador y orientado-al-sur entonces inicio
coge-zumbador;
fin
sino inicio
mientras no orientado-al-este hacer gira-izquierda;
deja-zumbador;
fin;
fin;
fin;


    inicia-ejecucion
    mientras no orientado-al-este hacer
    gira-izquierda;
    mientras algun-zumbador-en-la-mochila hacer
    deja-zumbador;
    avanza;
    mientras no junto-a-zumbador y frente-libre hacer
    avanza;
    gira-izquierda;
    acum;
    vuelta;
    difere(0);
    si orientado-al-sur entonces inicio
    deja(0);
    fin
    sino inicio
    apagate;
    fin;
        apagate;
    termina-ejecucion
finalizar-programa
