Altra domanda sull'appello: come avete fatto il programma sui numeri pari?

@DarkSide:
il progr dei numeri pari mi sembra che l'abbia fatto così :?
pari([H|T]) :-
A is Hmod2,
A = 0,
pari(T).
pari([]).

@tutti:
per caso qualcuno ha provato a mandare una mail a Red Ronnie per sapere quando farà uscire i risultati?? :roll:

Sto ba.stardo di programma sui numeri pari mi sta facendo impazzire :evil:

Posto il codice:[code type="markup"]%controlla se il numero della lista è pari o no
is_odd([X|A]):-
Y is X mod 2,
Y = 1.

%cancella il numero dispari dalla lista
takeout(X,[X|A],A).
takeout(X,[Y|A],[Y|B]):-
takeout(X,A,B).

%"main"
if_odd_out([X|A]):-
is_odd([X|A]),
takeout(X,[X|A],A),
if_odd_out(A),
print(A).[/code]
Chiaramente la parte sbagliata è la chiamata ricorsiva a if_odd_out... ma come ca@#o si implementa correttamente??? :evil:

Sto ba.stardo di programma sui numeri pari mi sta facendo impazzire :evil:

Posto il codice:[code type="markup"]%controlla se il numero della lista è pari o no
is_odd([X|A]):-
Y is X mod 2,
Y = 1.

%cancella il numero dispari dalla lista
takeout(X,[X|A],A).
takeout(X,[Y|A],[Y|B]):-
takeout(X,A,B).

%"main"
if_odd_out([X|A]):-
is_odd([X|A]),
takeout(X,[X|A],A),
if_odd_out(A),
print(A).[/code]
Chiaramente la parte sbagliata è la chiamata ricorsiva a if_odd_out... ma come ca@#o si implementa correttamente??? :evil:

Sorry per il doppio post ops:

Sorry per il doppio post ops:

Io l'ho implementato così (purtroppo non al compito, lì ho fatto un errore ):
[code type="markup"]
print_pari([H|T]) :-
0 is H mod 2,
print(H),
print_pari(T).
print_pari([H|T]) :-
1 is H mod 2,
print_pari(T).
print_pari([]).
[/code]

[code type="markup"]isOdd(X):- Y is X mod 2, Y=1.

printEven([H|T]):- \+isOdd(H), writeln(H), !, printEven(T).

printEven([H|T]):- printEven(T).[/code]

Manco a dirlo...al compito non l'ho fatto così. Ci mancherebbe altro! Mpf... :roll:

[code type="markup"]isOdd(X):- Y is X mod 2, Y=1.

printEven([H|T]):- \+isOdd(H), writeln(H), !, printEven(T).

printEven([H|T]):- printEven(T).[/code]

Manco a dirlo...al compito non l'ho fatto così. Ci mancherebbe altro! Mpf... :roll:

Come mai hai messo quella cut?

Azz... mi ha censurato c u t!

O metto la cut oppure scrivo:
[code type="markup"]isOdd(X):- Y is X mod 2, Y=1.
printEven([H|T]):- isOdd(H), printEven(T).
printEven([H|T]):- \+isOdd(H), writeln(H), printEven(T).[/code]
Senò fa backtracking e stampa più volte ogni numero pari.

Tutto molto empiricamente eh...

Mmm... ma se metti
[code type="markup"]
printEven([]).
[/code]
il predicato non fallisce e la cut non credo serva...

Che balls... questa censura p insensata! :twisted: Admiiiiiiiiiiiiiiiiiiiin... ma che ha fatto di male la parola c u t ?

":ux4joecx]Mmm... ma se metti
[code type="markup"]printEven([]).[/code]
il predicato non fallisce e la _cut_ non credo serva...

Hai perfettamente ragione...mi sono rimbecillito. Manca il caso base della ricorsione.

[code type="markup"]isOdd(X):- Y is X mod 2, Y=1.

printEven([H|T]):- isOdd(H), printEven(T).
printEven([H|T]):- writeln(H), printEven(T).
printEven([]).
[/code]

Corretto, funzionante, senza _cut_.

Però mi rode che all'esame ho fatto tante di quelle cavolate... uff...
Meno male che almeno reti è andata molto ma molto bene... e speriamo (probabilmente invano) che i risultati di SBC escano presto, così vedo cosa devo fare.

Eh...dillo a me.
Man mano che rifaccio gli esercizi escono fuori stronzate che ho fatto all'esame. :roll:

Il primo vabè...ancora non ho capito come si faceva. Rinnovo la richiesta di info a chi l'ha risolto.

Eh...dillo a me.
Man mano che rifaccio gli esercizi escono fuori stronzate che ho fatto all'esame. :roll:

Il primo vabè...ancora non ho capito come si faceva. Rinnovo la richiesta di info a chi l'ha risolto.

Io l'ho fatto con una ricerca binaria e supponendo di avere l'elenco del telefono sotto forma di una lista di record ordinata secondo il nominativo.

Si ok...quindi il dato del problema "studente dell'università di Tor Vergata" non è utilizzabile come sospettavo io?

Si ok...quindi il dato del problema "studente dell'università di Tor Vergata" non è utilizzabile come sospettavo io?

Per quanto mi riguarda non l'ho usato... in quanto estraneo al dominio dell'elenco telefonico. A pensarci bene potevo realizzare un agente con la palla di vetro...

Per quanto riguarda il primo esercizio (o meglio, l'esercizio ZERO :twisted: ), si potrebbe sfruttare la struttura gerarchica del numero di telefono, individuando la zona di residenza dello studente a partire dalle prime cifre del numero. L'ipotesi è che la maggioranza degli studenti di TorVergata abitino in zone limitrofe all'università. La ricerca (informata) avviene quindi con una funzione euristica che esamina prima i numeri di telefono più vicini all'univ, come ad esempio 0672...

Per quanto riguarda il primo esercizio (o meglio, l'esercizio ZERO :twisted: ), si potrebbe sfruttare la struttura gerarchica del numero di telefono, individuando la zona di residenza dello studente a partire dalle prime cifre del numero. L'ipotesi è che la maggioranza degli studenti di TorVergata abitino in zone limitrofe all'università. La ricerca (informata) avviene quindi con una funzione euristica che esamina prima i numeri di telefono più vicini all'univ, come ad esempio 0672...

Ma io abito al centro di Roma!
Inoltre poi come fai a verificare che è effettivamente uno studente?