for.logic

来自「国外的一套开源CRM」· LOGIC 代码 · 共 6 行

for(X, X, Upper) :- <= (X, Upper);
for(X, Lower, Upper) :- 
    <(Lower, Upper), 
    #(LowerPlusOne, Lower + 1), 
    for(X, LowerPlusOne, Upper);