09/07/19 13:41:43
>>519
% Prolog
回文読み込み :-
get_char(C),
回文読み込み(C,[],X,X),
write('回文です\n').
回文読み込み('\n',X,X,[]).
回文読み込み(C,Y,X,[C|R]) :-
get_char(C2),
回文読み込み(C2,[C|Y],X,R).
09/07/19 13:41:43
>>519
% Prolog
回文読み込み :-
get_char(C),
回文読み込み(C,[],X,X),
write('回文です\n').
回文読み込み('\n',X,X,[]).
回文読み込み(C,Y,X,[C|R]) :-
get_char(C2),
回文読み込み(C2,[C|Y],X,R).