fork download 
  1. :- set_prolog_flag(verbose,silent).
  2. :- prompt(_, '').
  3. :- use_module(library(readutil)).
  4.  
  5. main:-
  6. 	process,
  7. 	halt.
  8.  
  9. down(Y,X):-
  10.     Y>=0,
  11.     write(X),
  12.     write(' = '),
  13.     write(Y),
  14.     nl,
  15.     K is Y-1,
  16.     down(K,X).
  17.  
  18. down(Y,_) :- Y < 0.
  19.  
  20. process:-
  21. 	down(5,'X'),
  22. 	true.
  23.  
  24. :- main.
Success #stdin #stdout 0.04s 7468KB
comments (?)
stdin 
Standard input is empty
stdout 
X = 5
X = 4
X = 3
X = 2
X = 1
X = 0
https://ideone.com/vQHw2a
language:
Prolog (swi 7.6.4)
created:
9 years ago
visibility:
public

Share or Embed source code

Discover > Sphere Engine API

The brand new service which powers Ideone!

Discover > IDE Widget

Widget for compiling and running the source code in a web browser!