Clase 4 Ejercicio 3.2.13

/*Escribir un procedimiento VaciarCelda que elimine todas las
bolitas de la celda actual.
Para realizarlo, considere utilizar el procedimiento anterior,
y una repeticion indexada que recorra todos los colores.*/

/* el procedimiento saca la cantidad (que no conozco) de
un color*/

procedure SacarN(color, cantidad) {
repeatWith i in 1..cantidad {
Sacar(color)
}
}

/* aqui usamos la funcion nroBolitas(color) para sacar
la cantidad de bolitas que hay de cada color*/

procedure SacarTodas(color) {
SacarN(color, nroBolitas(color) )
}

/* aqui pasamos por cada valor del indice color
para sacar todos los colores*/

procedure VaciarCelda() {
repeatWith col in Azul..Verde {
SacarTodas(col)
}
}

procedure Main() {
VaciarCelda()
}