fork download
  1. oddEven(X, RET) :-
  2. X > 0,
  3. V is mod(X,2),
  4. RET is V.
  5.  
  6.  
Success #stdin #stdout 0.02s 68352KB
stdin
?- oddEven(2, RET).
stdout
GNU Prolog 1.3.1
By Daniel Diaz
Copyright (C) 1999-2009 Daniel Diaz
uncaught exception: error(syntax_error('user_input:1 (char:4) . or operator expected after expression'),read_term/3)