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).