fork download
  1. factorial(0,1).
  2.  
  3. factorial(A,B) :-
  4. A > 0,
  5. C is A-1,
  6. factorial(C,D),
  7. B is A*D.
Success #stdin #stdout 0.02s 68352KB
stdin
?- factorial(10,What).
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)