Advertisement
Guest User

Untitled

a guest
Jun 24th, 2017
67
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 1.72 KB | None | 0 0
  1. shift_possible(Shift,Horaire) :-
  2. Shift = [Personne,Jour,DebutShift,FinShift],
  3. %TODO: restreindre le domaine en fonction de Horaire
  4. setof(P,personne(P),Personnes),
  5. setof(J,jour(J),Jours),
  6.  
  7. % assigner les domaines
  8. Personne ins Personnes,
  9. Jour ins Jours,
  10. DebutShift ins 0..23, %TODO: reduire
  11. FinShift ins 0..23, %TODO: reduire
  12.  
  13. personne(Personne),jour(Jour),
  14. disponible(Personne,Jour,DebutDispo,FinDispo),
  15. heures_ouverture(Jour,Ouverture,Fermeture),
  16. %between(DebutDispo,FinDispo,DebutShift),
  17. %between(DebutDispo,FinDispo,FinShift),
  18.  
  19. DebutShift #>= DebutDispo,
  20. DebutShift #< FinDispo,
  21. FinShift #> DebutDispo,
  22. FinShift #>= FinDispo,
  23. DebutShift #>= Ouverture,
  24. FinShift #=< Fermeture,
  25. FinShift #> DebutShift,
  26. label(Shift).
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement