Clase 6 granja ejercicio 1

/*Funciones para denotar los colores de cada elemento*/

function colorDeAnimales() {
return(Rojo)
}

function colorDeConstrucciones() {
return(Negro)
}

function colorDeCultivos() {
return(Verde)
}

function colorDeAgua() {
return(Azul)
}

/*Funciones para denotar las cantidades de cada
elemento presentes en la hectarea actual*/

function cantidadDeAnimales() {
return(nroBolitas(colorDeAnimales()))
}

function cantidadDeConstrucciones() {
return(nroBolitas(colorDeConstrucciones()))
}

function cantidadDeCultivos() {
return(nroBolitas(colorDeCultivos()))
}

function cantidadDeAgua() {
return(nroBolitas(colorDeAgua()))
}
/////////////////////////////////////////////////////////

/*a- Programa la funcion cultivoEnPeligro() que indicara
True si en la hectarea actual hay mas animales que cultivos.
Tener en cuenta que si no hay cultivos esta funcion indicara
False sin importar la cantidad de animales que haya
en la celda.*/

function hayCultivos(){
return (nroBolitas(Verde)>0)
}

function masAnimalesQueCultivos(){
return (cantidadDeAnimales()>cantidadDeCultivos())
}

function cultivoEnPeligro() {
return (hayCultivos() && masAnimalesQueCultivos())
}


/*b- Programa la funcion ConstruccionesEnPeligro()
que indicara True si en la hectarea actual
la cantidad de animales triplica la cantidad de construcciones
Tener en cuenta que si no hay construcciones
esta funcion indicara False sin importar la
cantidad de animales que haya en la celda.*/

function hayConstrucciones(){
return (nroBolitas(Negro)>0)
}

function animalesTriplicaConstruccion(){
return (cantidadDeAnimales()>=cantidadDeConstrucciones()*3)
}

function construccionesEnPeligro(){
return (hayConstrucciones()&& animalesTriplicaConstruccion())
}

/*c- Programa la funcon hectareaEnPeligro() que indicara
True si la hectarea actual
tiene construcciones en peligro o cultivos en peligro*/

function hectareaEnPeligro(){
return (construccionesEnPeligro()|| cultivoEnPeligro())
}

/*d- Programa la funcion hectareaEnPeligroAl(dir)
que indicara True si la hectarea
en direccion dir se encuentra en peligro.*/

function hectareaEnPeligroAl(dir){
Mover(dir)
return(hectareaEnPeligro())
}

///////////////////////////////////////////////
procedure Main(){

valor:= hectareaEnPeligroAl(Norte)
return (valor)
}