sigo casi fin

programa.pl

@@ -1 +1,101 @@
 % Aquí va el código.
+
+necesidad(respiracion, fisiologico).
+necesidad(alimentacion, fisiologico).
+necesidad(descanso, fisiologico).
+necesidad(reproduccion, fisiologico).
+necesidad(integridadFisica, seguridad).
+necesidad(empleo, seguridad).
+necesidad(salud, seguridad).
+necesidad(amistad, social).
+necesidad(afecto, social).
+necesidad(intimidad, social).
+necesidad(confianza, reconocimiento).
+necesidad(respeto, reconocimiento).
+necesidad(exito, reconocimiento).
+necesidad(felicidad, autorrealizacion).
+necesidad(libertad, autorrealizacion).
+
+% 1) autorrealizacion, 2) reconocimiento, 3) social, 4) entretenimiento 5) seguridad, 6) fisiologico
+
+nivelSuperior(autorrealizacion, reconocimiento).
+nivelSuperior(reconocimiento, social).
+nivelSuperior(social, seguridad).
+nivelSuperior(seguridad, fisiologico).
+
+
+% Punto 2 
+
+separacion(Necesidad1, Necesidad2, CantDeSeparacion):-
+    necesidad(Necesidad1, Nivel),
+    necesidad(Necesidad2, Nivel2),
+    cuantosEntremedio(Nivel, Nivel2, CantDeSeparacion).
+
+
+cuantosEntremedio(Nivel, Nivel2, 0):-
+    Nivel = Nivel2.
+cuantosEntremedio(Nivel, Nivel2, CantDeSeparacion):-
+    nivelSuperior(Nivel2, NivelIntermedio),
+    cuantosEntremedio(Nivel, NivelIntermedio, CantDeSepAnt),
+    CantDeSeparacion is CantDeSepAnt+1.
+
+
+% Punto 3
+
+necesita(carla, alimentacion).
+necesita(carla, descanso).
+necesita(carla, empleo).
+necesita(juan, afecto).
+necesita(juan, exito).
+necesita(roberto, amistad).
+necesita(manuel, libertad).
+necesita(charly, afecto).
+
+% Punto 4
+
+necesidadMasJerarquica(Persona, Necesidad):-
+    necesita(Persona, Necesidad),
+    not((necesita(Persona, OtraNecesidad), necesidadMasNivel(OtraNecesidad, Necesidad))).
+
+necesidadMasNivel(Necesidad, OtraNecesidad):-
+    separacion(OtraNecesidad, Necesidad, CantDeSeparacion),
+    CantDeSeparacion > 0.
+
+
+% Punto 5
+
+nivel(Nivel):- necesidad(_, Nivel).
+
+persona(Persona):- necesita(Persona, _).
+
+necesitaAlgoPrevioA(Persona,Necesidad):-
+    necesita(Persona,OtraNecesidad),
+    separacion(OtraNecesidad,Necesidad,Separacion),
+    Separacion > 0.
+
+completoNivel(Persona, Nivel):-
+    nivel(Nivel),
+    persona(Persona),
+    not(nivelConNecesidades(Persona,Nivel)).
+
+nivelConNecesidades(Persona, Nivel):-
+    necesita(Persona, Necesidad),
+    necesidad(Necesidad, Nivel).
+nivelConNecesidades(Persona, Nivel):-
+    necesidad(Necesidad, Nivel),
+    necesitaAlgoPrevioA(Persona,Necesidad).
+
+% Punto 6 
+
+cumpleMaslow(Persona):-
+    necesita(Persona, Necesidad),
+    forall(necesita(Persona, OtraNecesidad), mismoNivel(OtraNecesidad, Necesidad)).
+
+mismoNivel(Necesidad, OtraNecesidad):-
+    separacion(Necesidad, OtraNecesidad, 0).
+
+noCumpleMaslow(Persona):-
+    necesita(Persona, Necesidad),
+    necesita(Persona, OtraNecesidad),
+    separacion(Necesidad, OtraNecesidad, Separacion),
+    Separacion > 1.