fork download
  1. countdown(0) :-
  2. write(0), nl,
  3. !.
  4. countdown(X) :-
  5. X > 0,
  6. write(X), nl,
  7. Y is X-1,
  8. countdown(Y).
Success #stdin #stdout 0.01s 68352KB
stdin
countdown(15).
stdout
GNU Prolog 1.3.1
By Daniel Diaz
Copyright (C) 1999-2009 Daniel Diaz
15
14
13
12
11
10
9
8
7
6
5
4
3
2
1
0

yes