48 lines
1.0 KiB
Plaintext
Executable File
48 lines
1.0 KiB
Plaintext
Executable File
;
|
|
cette base de regles ne tient pas compte de toutes les contraintes.
|
|
hypotheses retenues:
|
|
chaque equipe a un terrain dit domicile
|
|
;
|
|
;
|
|
cette regle determine la liste des matchs de la saison
|
|
;
|
|
REGLE QUI_CONTRE_QUI
|
|
SI
|
|
(E2) JOUE_EN (D)' VRAI
|
|
(E1) JOUE_EN (D)' VRAI
|
|
(E1) <> (E2)
|
|
ALORS
|
|
(E1) VS (E2)' VRAI
|
|
|
|
;
|
|
cette regle determine la liste des matchs de la saison
|
|
;
|
|
REGLE ALLE
|
|
SI
|
|
(E2) JOUE_EN (D)' VRAI
|
|
(E1) JOUE_EN (D)' VRAI
|
|
(E1) VS (E2)' VRAI
|
|
ALORS
|
|
(E2) VS (E1)' FAUX
|
|
|
|
;
|
|
cette regle programme les lieus et jour des matchs
|
|
;
|
|
REGLE QUAND_ET_OU_JOUER
|
|
SI
|
|
((T) DISPONIBLE ((J) A (H))) UTILISABLE (SEMAINE)' VRAI
|
|
(E1) VS (E2)' VRAI
|
|
(E1) NE_JOUE_PAS (SEMAINE)'VRAI
|
|
(E2) NE_JOUE_PAS (SEMAINE)'VRAI
|
|
(E1) EST_LIBRE (J)' VRAI
|
|
(E2) EST_LIBRE (J)' VRAI
|
|
(E1) JOUE_SUR (T)' VRAI
|
|
|
|
|
|
ALORS
|
|
ECRIRE(ENVOI, (E1) "&" (E2) "&" (J) "&" (H) "&" (T) "&" (SEMAINE) "&")
|
|
((E1) VS (E2))' = FAUX
|
|
(((T) DISPONIBLE ((J) A (H))) UTILISABLE (SEMAINE))' = FAUX
|
|
((E1) NE_JOUE_PAS (SEMAINE))' = FAUX
|
|
((E2) NE_JOUE_PAS (SEMAINE))' = FAUX
|