Clase 6 Ejemplo 6.2.4

/*calcular, a partir de la celda actual, en que direccion se encuentra la mayor concentracion de bolitas sin importar el color*/

function nroBolitasAl(dir) {
if (puedeMover(dir)) {
Mover(dir)
cantidad := (nroBolitas(Azul)+nroBolitas(Rojo)+nroBolitas(Negro)+nroBolitas(Verde))
} else {
// Si no podemos movernos entonces
// no hay celda, por lo tanto no hay bolitas
cantidad := 0
}
return(cantidad)
}
function dirMasBolitas() {
// Ponemos Norte como valor inicial
dirMas := Norte
// Y buscamos ver si las otras direcciones
// tienen mas bolitas que Norte
repeatWith d in Este..Oeste { // [Este, Sur, Oeste]
if (nroBolitasAl(d) > nroBolitasAl(dirMas)) {
dirMas := d
}
}
return(dirMas)
}

procedure Main(){
valor:= nroBolitasAl(Norte)
return (valor)

}