RosettaCodeData/Task/Integer-sequence/Prolog/integer-sequence-1.pro
Ingy döt Net db842d013d A-M baby
2013-04-10 21:29:02 -07:00

4 lines
47 B
Prolog

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