fork download
  1. num_between(X, Y, []) :- X > Y.
  2.  
  3. num_between(X, Y, [X|Tail]) :-
  4. X =< Y
  5. , Next is X + 1
  6. , num_between(Next, Y, Tail).
  7.  
  8. :- num_between(8,15,A), write(A), nl.
Success #stdin #stdout #stderr 0.02s 6160KB
stdin
Standard input is empty
stdout
[8, 9, 10, 11, 12, 13, 14, 15]
stderr