iniciar-programa

define-nueva-instruccion gira(n) como repetir n veces gira-izquierda;

define-nueva-instruccion casa como
inicio
    mientras no orientado-al-sur hacer gira(1);
    mientras frente-libre hacer avanza;
    gira(3);
    mientras frente-libre hacer avanza;
    gira(3);
fin;

define-nueva-instruccion cuenta como
si junto-a-zumbador entonces
inicio
    coge-zumbador;
    si junto-a-zumbador entonces
    inicio
        coge-zumbador;
        si junto-a-zumbador entonces
        inicio
            repetir 2 veces deja-zumbador;
            apagate;
        fin
        sino repetir 2 veces deja-zumbador;
    fin
    sino
        deja-zumbador;
    inicio
    fin;
fin;

define-nueva-instruccion ve como
si frente-bloqueado y  derecha-libre entonces
inicio
    gira(2);
    mientras frente-libre hacer avanza;
    gira(1);
    avanza;
    gira(1);
fin
sino apagate;

define-nueva-instruccion busca como
mientras frente-libre o derecha-libre hacer
inicio
    cuenta;
    si frente-libre entonces avanza
    sino
    inicio
        cuenta;
        ve;
    fin;
fin;


    inicia-ejecucion
        casa;
        busca;
        apagate;
    termina-ejecucion
finalizar-programa
