(defun fact (n) (if (zerop n) 1 (* n (fact (- n 1)))))
fact(0, 1). fact(N, X) :- N1 is N - 1, fact(N1, X1), X is X1 * N.
fact :: Integer -> Integer fact 0 = 1 fact n = n * fact(n - 1)
class Fuctorial { static int fact(int x) { if ( x == 0 ) return 1; return x * fact(x-1); } }
0 件のコメント:
コメントを投稿