iniciar-programa
define-nueva-instruccion media-vuelta como inicio
gira-izquierda;
gira-izquierda;
fin;

define-nueva-instruccion gira-derecha como inicio
gira-izquierda;
gira-izquierda;
gira-izquierda;
fin;

define-nueva-instruccion numero-vallas(x) como inicio
si derecha-libre y orientado-al-norte entonces inicio
gira-derecha;
avanza;
fin;
si derecha-libre y orientado-al-este entonces inicio
gira-derecha;
avanza;
fin;
si derecha-libre y orientado-al-sur entonces inicio
gira-derecha;
avanza;
fin;
si derecha-libre y orientado-al-oeste entonces inicio
gira-izquierda;
avanza;
gira-izquierda;
repetir 2 veces avanza;
repetir x veces deja-zumbador;
media-vuelta;
mientras frente-libre hacer avanza;
gira-derecha;
apagate;
fin;
si junto-a-zumbador entonces inicio
repetir 2 veces coge-zumbador;
numero-vallas(sucede(x));
fin
sino inicio
avanza;
numero-vallas(x);
fin;
fin;

define-nueva-instruccion numero-postes(x) como inicio
si derecha-libre y orientado-al-norte y junto-a-zumbador entonces inicio
coge-zumbador;
gira-derecha;
avanza;
numero-postes(sucede(x));
fin;
si derecha-libre y orientado-al-este y junto-a-zumbador entonces inicio
coge-zumbador;
gira-derecha;
avanza;
numero-postes(sucede(x));
fin;
si derecha-libre y orientado-al-sur y junto-a-zumbador entonces inicio
coge-zumbador;
gira-derecha;
avanza;
numero-postes(sucede(x));
fin;
si derecha-libre y orientado-al-oeste y izquierda-libre entonces inicio
gira-izquierda;
avanza;
gira-izquierda;
avanza;
repetir x veces deja-zumbador;
media-vuelta;
mientras frente-libre hacer avanza;
fin;
si junto-a-zumbador entonces inicio
coge-zumbador;
si junto-a-zumbador entonces inicio
deja-zumbador;
avanza;
numero-postes(x);
fin
sino inicio
numero-postes(sucede(x));
fin;
fin
sino inicio
si frente-libre entonces inicio
avanza;
numero-postes(x);
fin;
fin;
fin;

define-nueva-instruccion poner-vallas(x) como inicio
mientras derecha-bloqueada hacer inicio
si junto-a-zumbador y derecha-bloqueada entonces avanza;
mientras no junto-a-zumbador y derecha-bloqueada hacer inicio
repetir 2 veces deja-zumbador;
avanza;
fin;
fin;
gira-derecha;
avanza;
mientras derecha-bloqueada hacer inicio
si junto-a-zumbador y derecha-bloqueada entonces avanza;
mientras no junto-a-zumbador y derecha-bloqueada  hacer inicio
repetir 2 veces deja-zumbador;
avanza;
fin;
fin;
gira-derecha;
avanza;
mientras derecha-bloqueada hacer inicio
si junto-a-zumbador y derecha-bloqueada entonces avanza;
mientras no junto-a-zumbador y derecha-bloqueada hacer inicio
repetir 2 veces deja-zumbador;
avanza;
fin;
fin;
gira-derecha;
avanza;
mientras derecha-bloqueada hacer inicio
si junto-a-zumbador y derecha-bloqueada entonces avanza;
mientras no junto-a-zumbador y derecha-bloqueada  hacer inicio
repetir 2 veces deja-zumbador;
avanza;
fin;
fin;
gira-izquierda;
avanza;
repetir x veces deja-zumbador;
media-vuelta;
avanza;
coge-zumbador;
avanza;
numero-postes(1);
media-vuelta;
avanza;
gira-izquierda;
avanza;
avanza;
numero-vallas(0);
fin;

define-nueva-instruccion poner-postes(x) como inicio
deja-zumbador;
repetir x veces avanza;
mientras derecha-bloqueada hacer inicio
deja-zumbador;
repetir x veces avanza;
fin;
gira-derecha;
deja-zumbador;
repetir x veces avanza;
mientras derecha-bloqueada hacer inicio
deja-zumbador;
repetir x veces avanza;
fin;
gira-derecha;
deja-zumbador;
repetir x veces avanza;
mientras derecha-bloqueada hacer inicio
deja-zumbador;
repetir x veces avanza;
fin;
gira-derecha;
deja-zumbador;
repetir x veces avanza;
mientras derecha-bloqueada hacer inicio
deja-zumbador;
repetir x veces avanza;
fin;
gira-derecha;
avanza;
poner-vallas(x);
fin;

define-nueva-instruccion distancia(x) como inicio
si junto-a-zumbador entonces inicio
coge-zumbador;
distancia(sucede(x));
fin
sino inicio
avanza;
poner-postes(x);
fin;
fin;

    inicia-ejecucion
       mientras no orientado-al-este hacer gira-izquierda;
       avanza;
       gira-izquierda;
       distancia(0);
       apagate;
    termina-ejecucion
finalizar-programa
