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

5 lines
102 B
Prolog

:- use_module(library(chr)).
:- chr_constraint loop/1.
loop(N) <=> writeln(N), N1 is N+1, loop(N1).