fork download
  1. fac(0, 1) :- !.
  2. fac(N, Nfac) :-
  3. N > 0,
  4. M is N - 1,
  5. fac(M, Mfac),
  6. Nfac is N * Mfac.
Success #stdin #stdout 0.02s 68352KB
stdin
dogggg
stdout
GNU Prolog 1.3.1
By Daniel Diaz
Copyright (C) 1999-2009 Daniel Diaz
uncaught exception: error(syntax_error('user_input:1 (char:7) . or operator expected after expression'),read_term/3)