fork download
  1. r(0):- write('even').
  2. r(1):- write('odd').
  3.  
  4. c(X):-
  5. NX is mod(X,2),
  6. r(NX).
  7.  
Success #stdin #stdout 0.02s 68352KB
stdin
c(100).
c(101).
c(100).
c(101).
stdout
GNU Prolog 1.3.1
By Daniel Diaz
Copyright (C) 1999-2009 Daniel Diaz
even

yes
odd

yes
even

yes
odd

yes