Discussion :

[olon1976]

Bonjour et bon dimanche à tod@s,

Débutant en PROLOG, je recherche de l'aide pour écrire un petit programme qui fasse ceci:
1.
%La fuite de la chauve-souris
%Quand il y a de la lumière, elle fuit.

2.
%Migration des oiseaux:
%Quand il fait froid au nord, les oiseaux vont au sud.
%Quand il fait froid au sud, les oiseaux retournent au nord.

J'ai commencé par l'hibernation:

Code :

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

1
2
3
4
5
6
7
climat(froid).    %se lit « le climat est froid »
climat(chaud).    %se lit « le climat est chaud »
 
migre(oiseau, sud).   %se lit « oiseau hiberne au sud »
migre(oiseau, nord).   %se lit « oiseau hiberne au nord »
 
action :- migre(oiseau,Y), climat(Z), write('Si le climat est '), write(Z), write(' alors déménage au '), write(Y),nl, fail. %se lit « l'oiseau déménage au Nord ou au Sud si et seulement si « le climat est_froid » OU logique « le climat est_chaud»

Pour l'instant, le résultat que j'obtiens est loin de la perfection:

?- action.
Si le climat est froid alors déménage au sud
Si le climat est chaud alors déménage au sud
Si le climat est froid alors déménage au nord
Si le climat est chaud alors déménage au nord
false.

Je cherche donc une aide précieuse car je bloque .

Merci beaucoup.

[Trap D]

On peut faire ceci, je ne sais pas si cela répond au problème complètement, j'utilise SWI-Prolog

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
% premie exercice
chauve_souris(lumiere) :-
	writeln('la chauve souris fuit').
 
chauve_souris(X) :-
	format('la chauve souris n''a rien à faire de ~w~n', [X]).
 
% deuxième exercice
oiseau(Climat, Position) :-
	select(Climat, [chaud, froid], [New_Climat]),
	select(Position, [nord, sud], [New_Position]),
	format('Si le climat est ~w au ~w, alors l''oiseau déménage au ~w vers le ~w~n',
	       [Climat, Position, New_Climat, New_Position]).
 
 
oiseau(Climat, Position) :-
	format('Je ne comprends pas oiseau(~w,~w) !~n', [Climat, Position]).

[olon1976]

Merci beaucoup pour cette piste de solution qui me convient très bien. J'ai fait une petite modif sur le premier exo, pour le 2nd je vais peut-être y apporter qlqs modifs mais ça e me semble pas nécessaire. J'ai fait un test avec SWI-Prolog et le résultat me convient.

Code :

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

1
2
3
4
5
6
7
%premier exercice
 
lumiere_on :-
	writeln('Danger !!! La chauve souris prend la fuite.').
 
lumiere_off :-
	format('La chauve souris ne bouge pas quand la lumière est éteinte').

Encore un grand merci. Je passe ma discussion en "résolu".