iniciar-programa
define-nueva-instruccion norte como mientras no-orientado-al-norte hacer gira-izquierda;
define-nueva-instruccion sur como mientras no-orientado-al-sur hacer gira-izquierda;
define-nueva-instruccion oeste como mientras no-orientado-al-oeste hacer gira-izquierda;
define-nueva-instruccion este como mientras no-orientado-al-este hacer gira-izquierda;
define-nueva-instruccion menor(n) como
    inicio
        si no si-es-cero (n) entonces
            inicio
                si junto-a-zumbador entonces
                    inicio
                      coge-zumbador;
                      menor(precede(n));
                      deja-zumbador;
                    fin;
            fin sino mientras junto-a-zumbador hacer coge-zumbador;
    fin;
define-nueva-instruccion compara(n) como
    inicio
        si junto-a-zumbador entonces
            inicio
                repetir 2 veces deja-zumbador;
                menor(n);
            fin sino
                inicio
                    repetir n veces deja-zumbador;
                fin;
     fin;
define-nueva-instruccion MasCorto(n) como
    inicio
       si junto-a-zumbador entonces
           inicio
               coge-zumbador;
               si junto-a-zumbador entonces
                   inicio
                      coge-zumbador;
                      compara(n);
                   fin sino deja-zumbador;
           fin sino
               inicio
                   si no si-es-cero(Precede(n)) entonces
                       inicio
                          deja-zumbador;
                          norte;
                          si frente-libre entonces
                              inicio
                                  avanza;
                                  MasCorto(sucede(n));
                                  sur;
                                  avanza;
                              fin;
                           sur;
                          si frente-libre entonces
                              inicio
                                  avanza;
                                  MasCorto(sucede(n));
                                  norte;
                                  avanza;
                              fin;
                               este;
                          si frente-libre entonces
                              inicio
                                  avanza;
                                  MasCorto(sucede(n));
                                  oeste;
                                  avanza;
                              fin;
                               oeste;
                          si frente-libre entonces
                              inicio
                                  avanza;
                                  MasCorto(sucede(n));
                                  este;
                                  avanza;
                              fin;
                          coge-zumbador;
                      fin;
               fin;
    fin;
define-nueva-instruccion busqueda como
    inicio
       si junto-a-zumbador entonces
           inicio
               coge-zumbador;
               si junto-a-zumbador entonces
                   inicio
                       coge-zumbador;
                       apagate;
                   fin sino deja-zumbador;
           fin sino
               inicio
                   deja-zumbador;
                   norte;
                   si frente-libre entonces
                       inicio
                           avanza;
                           busqueda;
                           sur;
                           avanza;
                       fin;
                   sur;
                   si frente-libre entonces
                       inicio
                           avanza;
                           busqueda;
                           norte;
                           avanza;
                       fin;
                        este;
                   si frente-libre entonces
                       inicio
                           avanza;
                           busqueda;
                           oeste;
                           avanza;
                       fin;
                   oeste;
                   si frente-libre entonces
                       inicio
                           avanza;
                           busqueda;
                           este;
                           avanza;
                       fin;
               fin;
    fin;
    inicia-ejecucion
        MasCorto(2);
        busqueda;
        apagate;
    termina-ejecucion
finalizar-programa
