このディレクトリの索引
http://toro.2ch.net/test/read.cgi/tech/1322562648/669
#  [1] 授業単元: C言語 
#  [2] 問題文(含コード&リンク): 文字列HeLLo中の文字について、大文字は小文字に 
#                 小文字は大文字に変換せよ。 
#  

'文字列HeLLo中の文字について、大文字は小文字に小文字は大文字に変換する' :-
        atom_codes('HeLLo',Codes),
        大文字小文字相互変換(Codes,Codes2),
        atom_codes(_変換された文字列,_変換された文字コードならび),
        writef('%t',[_変換された文字列]).

大文字小文字相互変換([],[]).
大文字小文字相互変換([Code1|R1],[Code2|R2]) :-
        Code1 >= 65,
        Code1 =< 90,
        Code2 is Code1 + 32,
        大文字小文字相互変換(R1,R2).
大文字小文字相互変換([Code1|R1],[Code2|R2]) :-
        Code1 >= 97,
        Code1 =< 122,
        Code2 is Code1 - 32,
        大文字小文字相互変換(R1,R2).