Clase 6 ejercicio 1-C

/*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 Establecer(color, cantidad) {
    SacarTodas(color)
    PonerN(color, cantidad)
}

procedure EstablecerAl(color, cantidad, d) {
    Mover(d)
    Establecer(color, cantidad)
    Mover(opuesto(d))
}

procedure MoverColorAl(color, d) {
    EstablecerAl(color, nroBolitas(color), d)
    SacarTodas(color)
}

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

procedure Main(){
    MoverCeldaAl(Este)
}