Discussion :

[Trap D]

As-tu une batterie de tests complète ?
Pour le moment, les modifs que je fais permettent de valider les demandes mais si tu en rajoutes à chaque fois.
Dernière mouture :

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
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
minsouliste([], []).
 
minsouliste([H|T], MH1) :-
	is_list(H), !,
	minsouliste(H, MH),
	minsouliste(T, MT),
	(   is_list(MT) -> MH1 = [MH|MT]; MH1 = [MH |[MT]]).
 
minsouliste([H|T], MH) :-
	minsouliste1(T, H, MH).
 
 
minsouliste1([H | T], MHC, [MHC | [ MH1 | MH2]]) :-
	is_list(H), !,
	minsouliste(H, MH1),
	minsouliste(T, MH2).
 
 
minsouliste1([H | T], MHC, MH) :-
	H < MHC, !,
	minsouliste1(T, H, MH).
 
minsouliste1([_H | T], MHC, MH) :-
	minsouliste1(T, MHC, MH).
 
minsouliste1([], MH, MH).
 
 
% la batteire de tests :
test :-
	minsouliste([[1,[2,5]]],R),
	writeln(R),
	writeln([[1,2]]),
	minsouliste([2, [0, 1], [8, 2], 4], R1),
	writeln(R1),
	writeln([2,0,2,4]),
	minsouliste([[[2,3,5],[3,0,2]],[2,3,9]],R3),
	writeln(R3),
	writeln([[2,0],2]).

[info_0]

non je n'ai pas une baterie de teste, mais même avc ce code ça donne tjrs le méméme résultat, le 4 il le rajoute bizarement à la fin de la liste:
2 ?- minsouliste1([[[3,4],[6,7]],4],5,R).
R = [5, [3, 6]|4].
donc je comprend pas la!!

[Trap D]

Pour t'aider à comprendre le problème :
essaye en mode console

L = [3 | 4].

Puis

Code :

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

L = [3 | [4]].

Puis intéresse-toi à cette règle :

Code :

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

1
2
3
4
minsouliste1([H | T], MHC, [MHC | [ MH1 | MH2]]) :-
	is_list(H), !,
	minsouliste(H, MH1),
	minsouliste(T, MH2).

[info_0]

j'ai résolu le problème, mais je me suis rendu compte qu'il ne résoudera pas le problème du minimax, car dans le cas ou on aura:
minsouliste([[5,3],[3,5],[3,[1,3]]],R).
R = [3, 3, [3, 1]].
on aura cessi alors qu on a besoin juste de [[5,3],[3,5],[3,1]]
je ne sais pas si on pourra l'avoir ça?