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

5 lines
47 B
Prolog
Raw Permalink Normal View History

2013-04-10 21:29:02 -07:00
loop(I) :-
writeln(I),
I1 is I+1,
loop(I1).