いろんな言語で宿題スレ

いろんな言語で宿題スレ at TECH

520:デフォルトの名無しさん
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).

次ページ

続きを表示

1を表示