いろんな言語で宿題スレ

いろんな言語で宿題ス ..

387:デフォルトの名無しさん
09/07/07 17:49:22
>>386
% Prolog

t386 :-
　　get_line(Line),
　　atom_chars(Line,Chars),
　　大文字小文字変換(Chars,Chars2),
　　atom_chars(Line2,Chars2),
　　write_formatted('%t\n',[Line2]).

大文字小文字変換([],[]) :- !.
大文字小文字変換([A|R1],[B|R2]) :-
　　A @>= 'A',
　　A @=< 'Z',!,
　　to_lower(A,B),
　　大文字小文字変換(R1,R2).
大文字小文字変換([A|R1],[B|R2]) :-
　　A @>= a,
　　A @=< z,!,
　　to_upper(A,B),
　　大文字小文字変換(R1,R2).
大文字小文字変換([A|R1],[A|R2]) :-
　　大文字小文字変換(R1,R2).

次ページ