Clase 6 Ejemplo 6.2.2

/*Supongamos que contamos entonces la cantidad de bolitas negras
de toda la columna*/

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

function cantidadNegrasDeColumna() {
IrAlBorde(Sur)
cantidadTotal := nroBolitas(Negro)
while(puedeMover(Norte)) {
Mover(Norte)
cantidadTotal := cantidadTotal + nroBolitas(Negro)
}
return(cantidadTotal)
}

procedure Main(){
valor :=  cantidadNegrasDeColumna()
return (valor)
}