10/02/05 06:28:08
>>212
% Prolog
'2つの名前を入力しステータス（ランダム）を決定し 勝敗表示する' :-
'2つの名前を入力し'(_名前1,_名前2),
'ステータス（ランダム）を決定し'(_名前1のステータス,_名前2のステータス),
勝負表示する(_名前1,_名前2,_名前1のステータス,_名前2のステータス),!.
'ステータス（ランダム）を決定し'(_名前1のステータス,_名前2のステータス) :-
_名前1のステータス is random mod 100 + 1,
_名前2のステータス is random mod 100 + 1.
勝負表示する(_名前1のステータス,_名前2のステータス) :-
_名前1のステータス > _名前2のステータス,
write_formatted('%tの勝ちです\n',[_名前1]),!.
勝負表示する(_名前1のステータス,_名前2のステータス) :-
_名前1のステータス < _名前2のステータス,
write_formatted('%tの勝ちです\n',[_名前2]),!.
勝負表示する(_名前1のステータス,_名前2のステータス) :-
_名前1のステータス = _名前2のステータス,
write('引き分けです\n'),!.