vallog: Prolog 階乗

2009/11/21

% 階乗
fact(0, 1).
fact(X, Y) :-
    X > 0,
    X1 is X - 1,
    fact(X1, Y1),
    Y is X * Y1.
fact(5, 120).

% ?- fact(5, Y).
% 120

% 外部ファイルの読み込み
% ['c:/program files/pl/demo/likes.pl'].

% pwd : カレントフォルダ
% ls : カレントフォルダ内のファイルを表示

% comment
/*
comments
*/

vallog