RosettaCodeData/Task/Integer-sequence/Prolog/integer-sequence-1.pro

5 lines
47 B
Prolog

loop(I) :-
writeln(I),
I1 is I+1,
loop(I1).