|
% PROCEDURA PER GENERARE UNA LISTA ORDINATA DI NUMERI INTERI POSITIVI
% num_list(N, L)
% "L è la lista ordinata dei numeri interi positivi
% che vanno da 1 a N (con N numero intero positivo)"
num_list(N, L) :- nonvar(N), N > 0, num_list(1, N, L), !.
num_list(N, N, [N]).
num_list(ACC, N, [ACC|TAIL]):- ACC1 is ACC+1, num_list(ACC1, N, TAIL).
|
|