Discussion :

[salah1846]

Bonsoir,

je poste après 4 heures de recherches sans succes, si quelqu'un peut me donner la réponse à la Question 2.1, vérifier(L), je serai trés reconnaissant et me permettra d'avancer sur le reste.

voilà mon sujet :

Un drone peut voler si son lanceur lui donne un code de démarrage. Le code est donné par un utilisateur et par un automate. Le code est soumis à des contraintes. Vous devez créer un programme Prolog pour fournir des codes valides à 5 chiffres. Les codes se présentent sous la forme d’une séquence de 5 valeurs.

Voici les caractéristiques imposées sur la séquence
1. 5 chiffres.
2. Les 3 premiers chiffres ont une valeur entre 1 et 5, soit [1..5].
3. Le 4ième chiffre a une valeur entre 1 et 6, soit [1..6].
4. Le 5ième chiffre a une valeur entre 1 et 7, soit [1..7].
5. La somme des chiffres de la séquence est 16.

Question 2.1 : Ecrire 1 prédicat Prolog nommé Vérifier d’arité 1, qui demande à un utilisateur de rentrer les deux premiers chiffres compris entre 1 et 5 et qui produit les 3 autres chiffres en respectant les contraintes nommées.

Exemple :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
1 ?- verifier(L). 
Le premier chiffre 
|: 2. 
Le deuxième chiffre 
|: 3. 
L = [2, 3, 1, 3, 7]

Votre programme évolue :
1. La somme des 5 chiffres est toujours 16.
2. Les 2 premiers chiffres donnés par l’utilisateur sont obligatoirement différents (les valeurs sont toujours comprises entre 1 et 5).
3. Les 3 chiffres donnés par votre programme sont différents eux aussi entre eux et différents de ceux de l’utilisateur.
4. Les 3 autres chiffres donnés par votre programme suivent toujours les contraintes initiales :
a. Le choix du premier chiffre de la machine se fait entre les valeurs : 1 et 5,
b. Le choix du deuxième chiffre de la machine se fait entre les valeurs : 1 et 6,
c. Le choix du troisième chiffre de la machine se fait entre les valeurs : 1 et 7.


Question 2.2 : Écrire 1 prédicat Prolog nommé Combinaisons d’arité 1, qui donne toutes les combinaisons en une seule demande et qui redemande à l’utilisateur de rentrer ses chiffres si ils ne sont pas différents.

Question 2.3 : Donnez toutes les combinaisons avec votre prédicat Combinaisons d’arité 1, pour les couples de chiffres de l’utilisateur (1,2), (2,3), (3,4), et (4,5).

Question 2.4 (3 points): Écrire 1 prédicat Prolog nommé Combinaisons2 d’arité 2, qui donne toutes les combinaisons en une seule demande et qui redemande à l’utilisateur de rentrer ses chiffres si ils ne sont pas différents et qui permet de donner une valeur pour la somme.

Exemple :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
1 ?- combinaisons2(L, 23). Le premier chiffre 
|: 4. 
Le deuxième chiffre 
|: 5. 
[4, 5, 1, 6, 7]

[salah1846]

Bonjour,
si quelqu'un a une piste, je suis prenuer, c'est très urgent pour ma révision pour les examen.

vous remercie par avance

[Trap D]

Bonjour

Cela se résoud très facilement en utilisant la bibliothèque CLP(FD). :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
:- use_module(library(clpfd)).
 
combinaison(L) :-
    L = [A,B,C,D,E],
    A in 1..5,
    B in 1..5,
    C in 1..5,
    D in 1..6,
    E in 1..7,
    sum(L, #=, 16),
    all_distinct(L),
    label(L).

exemple :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 ?- L = [2,3,A,B,C], combinaison(L).
L = [2,3,1,4,6],
A = 1,
B = 4,
C = 6 ;
L = [2,3,1,6,4],
A = 1,
B = 6,
C = 4 ;
L = [2,3,4,1,6],
A = 4,
B = 1,
C = 6 
etc

[salah1846]

Merci pour votre réponse,

mon soucis c'est plutôt ça " prédicat Vérifier d’arité 1, qui demande à un utilisateur de rentrer les deux premiers chiffres compris entre 1 et 5 et qui produit les 3 autres chiffres en respectant les contraintes nommées.

Example:
1 ?- vérifier(L).

The first digit |: 2.
The second digit |: 6.
L = [2, 6, 2, 2, 9]

plus pour demander à l'utilisateur de nous fournir les deux chiffres, les récupérer pour construire notre liste.

ça doit être facile mais j'y arrive pas,
Merci par avance

[Trap D]

Rassure-toi, les saisies utilisaterus en Prolog sont rarement simples !
Un exemple de ce qui peut être fait :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
verifier(X, Min, Max) :-
    X >= Min,
    X =< Max.
 
verifier_un(N) :-
    repeat,
    write('The first digit '),
    read_line_to_codes(user_input, C),
    number_codes(N, C),
    verifier(N, 1, 5).

Je te laisse adapter à ton problème.

[doha12]

Bonjour salah1846,
Avez-vous réussi à resoudre cet exercice car j'ai le même pour réviser mais je n'arrive à trouver la solution
Merci pour votre aide