Discussion :

[cLaSic]

On veut fabriquer un nombre donné à partir d’une liste de nombres entiers (comme dans le jeu “les chiffres et les lettres”).
On a droit uniquement à l’addition. on veut écrire un prédicat chiffre1(+Liste, +Cible,-Solution) dans lequel la solution est sous forme d’une liste.
exemple:
chiffre1([5,50,45,3],50,S).
donne :
S = [5,45];
S = [50].

J'arrive pas à trouver une solution pour ce problème :\

[cLaSic]

J'ai fais ca:

Code :

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

1
2
3
4
5
6
7
8
chiffres(L,C,S):-
    chiffraux(L,0,C,S).
chiffraux(_,A,A,[A]).
chiffraux([A|L],M,C,S):-
    D is M+A,
    D =< C,
    %S is [A|_],
    chiffraux(L,D,C,S).

[Eusebius]

Tu te compliques la vie je pense, ça se fait en un seul prédicat

Code :

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

chiffres(L1, S, L2).

Il faut considérer trois cas :

• Le premier élément de L1 est le résultat ;
• On garde le premier élément de L1 dans la somme et on en cherche d'autres dans la suite de L1 ;
• On va chercher d'autres éléments dans la suite de L1, sans prendre le premier élément.

Je te laisse reprendre sur ces bases ?

[pcaboche]

On veut fabriquer un nombre donné à partir d’une liste de nombres entiers (comme dans le jeu “les chiffres et les lettres”).

Ceci peut un peu t'aider :

Code :

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

1
2
3
4
5
 
additionPossible(L, S) :-
  select(A, L, T),
  select(B, T, _),
  S is A+B.

[Eusebius]

Ceci peut un peu t'aider :

Code :

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

1
2
3
4
5
 
additionPossible(L, S) :-
  select(A, L, T),
  select(B, T, _),
  S is A+B.

c'est bien compliqué

[pcaboche]

c'est bien compliqué

Gné ?

Y'a pas plus simple pour trouver toutes les additions possibles à partir de 2 éléments de la liste.

[Eusebius]

Gné ?

Y'a pas plus simple pour trouver toutes les additions possibles à partir de 2 éléments de la liste.

Si c'est un exercice, ce que je pense (mais je peux me tromper), il y a peu de chances qu'on attende de lui qu'il utilise un prédicat prédéfini du langage, et donc par "c'est bien compliqué", j'entends qu'on peut tout faire avec un seul prédicat et en quatre lignes de code.

Ta solution, (comme d'habitude ), sera sans doute la plus efficace.

[pcaboche]

Ta solution, (comme d'habitude ), sera sans doute la plus efficace.

Pas forcément, en ce moment je suis très fatigué...

[billynirvana]

Le truc suivant débuggué devrait marcher (j'ai pas de prolog au bureau!):

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
but_chiffres(l, r_es, s_ol)->
	chiffres(l, nil, r_es, s_ol);
 
chiffres(l, l', r_es, e1.nil)->
	retirer(e, l, l1)
	addition(e.l', 0, a_dd)
	val(a_dd '=' r_es, 1);
 
chiffres(l, l', r_es, e1.e2.s_ol)->
	retirer(e, l, l1)
	addition(e.l', 0, a_dd)
	val(a_dd '<' r_es, 1)
	chiffres(l1, e.l', r_es, s_ol);
 
addition(n1.nil, n2, s_ol)->
	val(n1 '+' n2, s_ol);
 
addition(n1.l, n2, s_ol)->
	val(n1 '+' n2, n)
	addition(l, n, s_ol);

EDIT: replacement de "eval" par "val"

[Eusebius]

Le truc suivant débuggué devrait marcher (j'ai pas de prolog au bureau!):

Code :

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

1
2
3
4
but_chiffres(l, r_es, s_ol)->
	chiffres(l, nil, r_es, s_ol);
 
[...]

Je crois qu'il ne travaille pas dans cette syntaxe

[billynirvana]

remplacer les fleches par :- et des points virgules par ., c'est trop compliqué à mon avis...

Il est vrai pour certains buts par contre.

[Trap D]

La solution évoquée (mais non publiée) par Eusébius est tout à fait correcte.
Quelle est la signification exacte de eval("n1+n2", s_ol) ?

[Eusebius]

Je m'en voudrais de faire mon cachottier, je vais décidément avoir une sale réputation sur ce forum

Code :

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

1
2
3
4
5
6
chiffres([S|_], S, [S]).
chiffres([A|Tail], S, [A|STail]) :-
  S2 is S - A,
  chiffres(Tail, S2, STail).
chiffres([_|Tail], S, L) :-
  chiffres(Tail, S, L).

[billynirvana]

La solution évoquée (mais non publiée) par Eusébius est tout à fait correcte.
Quelle est la signification exacte de eval("n1+n2", s_ol) ?

En fait, je me suis gourré dans la syntaxe, c'est plutot val(n1 '+' n2, s_ol); Elle evalue l'expression arithmétique donnée en premier argument et lie le résultat avec s_ol.

[Trap D]

C'est ce que je pensais, mais la syntaxe m'avait paru bizarre.