Re: En Prolog

Bon, j'ai eu un peu de temps pour adapter le code trouvé sur l'autre jour et voici la solution en Prolog:

bonCompte(N, [N],[]):-!.
bonCompte(N, L,[Detail|Details]):- 
 choisir2elements(Op1, Op2, Reste, L),
 calcul(Resultat, Op1, Op2, Detail),
 bonCompte(N, [Resultat|Reste],Details).
choisir2elements(Operande1, Operande2, Reste, Liste):-
 select(Operande1, Liste, Reste1),
 select(Operande2, Reste1, Reste),
 Operande1 >= Operande2.
calcul(Res, Op1, Op2, [Op1, '+', Op2, '=', Res]):- Res is Op1 + Op2.
calcul(Res, Op1, Op2, [Op1, '*', Op2, '=', Res]):- Op2 >= 1, 
 Res is Op1 * Op2.
calcul(Res, Op1, Op2, [Op1, '-', Op2, '=', Res]):- Res is Op1 - Op2, 
 Res > 0.
calcul(Res, Op1, Op2, [Op1, '/', Op2, '=', Res]):- Op2 >= 1, 
 Res is Op1 / Op2, 
 integer(Res),
 Res \== Op2.

Le second paramètre de bonCompte étant une liste contenait en tête le résultat, il suffisait de vérifier que cette liste ne contenait que le résultat. C'est ce que dit la première règle.

J'ai autorisé le fait que le résultat de la soustraction puisse fournir la même chose que sa opérande (le cas 2-1=1) et autorisé qu'une division et une multiplication par 1 soit faisable.

Ca s'appelle simplement via bonCompte(24, [7,8,5,1]). par exemple