r(0):- write('even').r(1):- write('odd'). c(X):- X is mod(X,2), r(X).
c(100). c(101). c(100). c(101).
GNU Prolog 1.3.1 By Daniel Diaz Copyright (C) 1999-2009 Daniel Diaz no no no no
The brand new service which powers Ideone!
Widget for compiling and running the source code in a web browser!