Festivales de... rock?

En los últimos años volvieron a ponerse de moda los grandes festivales de rock y metal en la Argentina, pero con unos “ligeros” cambios en las agrupaciones que participan…

Ante el descontento de ciertos fanáticos, los organizadores decidieron encomendar la tarea de selección de las distintas bandas a los rockeros de PdeP, quienes decidieron, usando el paradigma lógico, modelar los distintos eventos.

 

Se cuenta con la siguiente base de conocimiento:

anioActual(2015).

%festival(nombre, lugar, bandas, precioBase).

%lugar(nombre, capacidad).

festival(lulapaluza, lugar(hipodromo,40000), [miranda, paulMasCarne, muse], 500).

festival(mostrosDelRock, lugar(granRex, 10000), [kiss, judasPriest, blackSabbath], 1000).

festival(personalFest, lugar(geba, 5000), [tanBionica, miranda, muse, pharrellWilliams], 300).

festival(cosquinRock, lugar(aerodromo, 2500), [erucaSativa, laRenga], 400).

%banda(nombre, año, nacionalidad, popularidad).

banda(paulMasCarne,1960, uk, 70).

banda(muse,1994, uk, 45).

banda(kiss,1973, us, 63).

banda(erucaSativa,2007, ar, 60).

banda(judasPriest,1969, uk, 91).

banda(tanBionica,2012, ar, 71).

banda(miranda,2001, ar, 38).

banda(laRenga,1988, ar, 70).

banda(blackSabbath,1968, uk, 96).

banda(pharrellWilliams,2014, us, 85).

%entradasVendidas(nombreDelFestival, tipoDeEntrada, cantidadVendida).

% tipos de entrada: campo, plateaNumerada(numero de fila), plateaGeneral(zona).

entradasVendidas(lulapaluza,campo, 600).

entradasVendidas(lulapaluza,plateaGeneral(zona1), 200).

entradasVendidas(lulapaluza,plateaGeneral(zona2), 300).

entradasVendidas(mostrosDelRock,campo,20000).

entradasVendidas(mostrosDelRock,plateaNumerada(1),40).

entradasVendidas(mostrosDelRock,plateaNumerada(2),0).

% … y asi para todas las filas

entradasVendidas(mostrosDelRock,plateaNumerada(10),25).

entradasVendidas(mostrosDelRock,plateaGeneral(zona1),300).

entradasVendidas(mostrosDelRock,plateaGeneral(zona2),500).

plusZona(hipodromo, zona1, 55).

plusZona(hipodromo, zona2, 20).

plusZona(granRex, zona1, 45).

plusZona(granRex, zona2, 30).

plusZona(aerodromo, zona1, 25).

Se pide desarrollar los siguientes predicados de modo que sean totalmente inversibles.

1)  estaDeModa/1. Se cumple para las bandas recientes (que surgieron en los últimos 5 años) que tienen una popularidad mayor a 70.

?- estaDeModa(Banda).

Banda = tanBionica ;

Banda = pharrellWilliams.

                          

2) esCareta/1. Se cumple para todo festival que cumpla alguna de las siguientes condiciones:

?- esCareta(Festival).

Festival = personalFest ;

Festival = ...

3) entradaRazonable/2. Relaciona un festival con una entrada del mismo si se cumple:

Los precios de las distintas entradas se calculan de la siguiente forma:

?- entradaRazonable(Festival,Entrada).

Festival=lulapaluza,

Entrada=plateaGeneral(zona2);

Festival=...

4) nacanpop/1. Se cumple para un festival si todas las bandas que participan del mismo son nacionales y alguna de

sus entradas disponibles es razonable.

?- nacandpop(Festival).

Festival =cosquinRock.

5) recaudacion/2. Relaciona un festival con su recaudación, que se calcula como la suma del precio de todas las entradas vendidas (multiplicar el valor de una entrada por la cantidad vendida de la misma).

?- recaudacion(Festival,Total).

Festival = lulapaluza,

Total = 567000 ;

Festival = mostrosDelRock,

Total = 20879500 ...

6) estaBienPlaneado/1. Se cumple si las bandas que participan van creciendo en popularidad, y la banda que cierra el festival (es decir, la última) es legendaria.

Una banda es legendaria cuando surgió antes de 1980, es internacional y tiene una popularidad mayor a la de todas las bandas de moda.

?- estaBienPlaneado(Festival).

Festival=mostrosDelRock.