10/07/23 13:52:28
>>296
% Prolog その五
'1～10までの偶数を出力' :-
'1～10までの偶数を出力'(1).
'1～10までの偶数を出力'(N) :- N > 10,!.
'1～10までの偶数を出力'(N) :-
偶数(N),
write_formatted('%t\n',[N]),
N2 is N + 1,
'1～10までの偶数を出力'(N2).
'1～10までの偶数を出力'(N) :-
奇数(N),
N2 is N + 1,
'1～10までの偶数を出力'(N2).