info

info

Post by Char » Sun, 03 Jul 2005 01:33:58


Ciao a tutti, sperando che qualche italiano legga questo newsgroup.
La sett prox devo sostenere l'esame di int. artificiale en quindi devo
implemetanre un piccolo programma in prolo, linguaggio che ho mal digerito
visto che non mi piace (al contrario del c++).
Ho qualche piccolo dubbio e precisamente:
se ho una lista, come creo da questa lista di partenza, la lista degli
elementi di posto pari???

Ciao e grazie anticipatamente
 
 
 

info

Post by Mauro Di N » Mon, 04 Jul 2005 01:29:19

Ciao, eccoti il prologgino:

pari(Partenza, Arrivo) :-
pari(Partenza, Arrivo, []).
pari([_, Pari|Coda], Arrivo, Temporanea) :-
pari(Coda, Arrivo, [Pari|Temporanea]).
pari(_, Arrivo, Temporanea) :-
reverse(Temporanea, Arrivo).

sono 500 euro ;)
M


"Char" < XXXX@XXXXX.COM > ha scritto nel messaggio

 
 
 

info

Post by Mauro Di N » Mon, 04 Jul 2005 03:32:37

Estrarre i membri pari di una lista:::
(Extracting even members of a list:::)

Questo anche meglio:
(This is "even" better:)

pari([_, Pari|Coda], [Pari|Arrivo]) :-
pari(Coda, Arrivo).
pari([_], []).
pari([], []).

even([_, Even|Tail], [Even|Result]) :-
even(Tail, Result).
even([_], []).
even([], []).

questo perchmi facevano notare che al goal:
(this because someone pointed out that for the goal:)

?- pari([1,2,3], []).
(?- even([1,2,3], []).)

Prolog rispondeva:
(Prolog answered:)

Yes
(Si ;-)

Invece... cosv
(On the contrary... this works!)




"Mauro Di Nuz<o" ha scritto nel messaggio

> Ciao, eccoti il prologgin>: >>
> pari(Partenza, Arrivo) >-
> pari(Partenza, Arrivo, []>.
> pari([_, Pari|Coda], Arrivo, Temporanea) >-
> pari(Coda, Arrivo, [Pari|Temporanea]>.
> pari(_, Arrivo, Temporanea) >-
> reverse(Temporanea, Arrivo>. >>
> sono 500 euro >)
>>M >> >>
> "Ch<r" ha scritto nel messagg>o

digeri>o> > > visto che non mi piace (al contrario del c++>.> > > Ho qualche piccolo dubbio e precisament>:> > > se ho una lista, come creo da questa lista di partenza, la lista deg>i> > > elementi di posto pari?>?> >>>> > > Ciao e grazie anticipatamen>e> >>>> >>> >>
>