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

yes