RosettaCodeData/Task/Loops-For-with-a-specified-step/Prolog/loops-for-with-a-specified-step-1.pro
2023-07-01 13:44:08 -04:00

6 lines
187 B
Prolog

for(Lo,Hi,Step,Lo) :- Step>0, Lo=<Hi.
for(Lo,Hi,Step,Val) :- Step>0, plus(Lo,Step,V), V=<Hi, !, for(V,Hi,Step,Val).
example :-
for(0,10,2,Val), write(Val), write(' '), fail.
example.