Clase 5 Entre0

function haySiguienteCelda()
{
return(puedeMover(Este)|| puedeMover(Norte))

}

procedure IrAlBorde(dir)
{
while(puedeMover(dir))
{Mover(dir)}
}

procedure VolverAlOrigenYSubir()
{
IrAlBorde(Oeste)
Mover(Norte)
}

procedure IrASiguienteCelda()
{
if(puedeMover(Este))
{Mover(Este)}

else
{VolverAlOrigenYSubir()}
}

procedure SacarTodas(color)
{
if(hayBolitas(color))
{ repeatWith i in 1.. nroBolitas(color)
{Sacar(Azul)}
}
Poner(Rojo) Poner(Negro)
}



procedure InvertirTablero()
{
IrAlOrigen()
SacarTodas(Azul)
while(haySiguienteCelda())
{IrASiguienteCelda(); SacarTodas(Azul)}
}



procedure Main(){
InvertirTablero()
}