fork download
  1. factoriel(0,1).
  2. factoriel(X,Y) :-
  3. X1 is X - 1,
  4. factoriel(X1,Z),
  5. Y is Z*X,!.
Success #stdin #stdout 0.02s 68352KB
stdin
?-fac(5,X)
stdout
GNU Prolog 1.3.1
By Daniel Diaz
Copyright (C) 1999-2009 Daniel Diaz
uncaught exception: error(syntax_error('user_input:1 (char:3) . or operator expected after expression'),read_term/3)