Clase 6 ejercicio 1-B

/*Programa el procedimiento MoverCeldaAl(dir) que mueve
el contenido de la celda actual a la celda siguiente
en direccion dir.*/


procedure PonerN(color, cantidad) {
    repeatWith i in 1..cantidad {
        Poner(color)
    }
}

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

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

procedure MoverColorAl(color, d) {
    cantidad := nroBolitas(color)
    SacarTodas(color)
    Mover(d)
    SacarTodas(color)
    PonerN(color, cantidad)
    Mover(opuesto(d))
}

procedure MoverCeldaAl(dir) {
    repeatWith c in Azul..Verde {
        MoverColorAl(c, dir)
    }
}

procedure Main(){
    MoverCeldaAl(Oeste)
}