| % 階乗
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
*/ |
0 件のコメント:
コメントを投稿