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

'文字列HeLLo中の文字について、大文字は小文字に小文字は大文字に変換する' :-
        findall(_文字,(
                    sub_atom('HeLLo',_,1,_,_文字1),
                    大文字小文字相互変換(_文字1,_文字2)),
                _変換された文字ならび),
        atom_chars(_変換された文字列,_変換された文字ならび),
        writef('%t',[_変換された文字列]).

大文字小文字相互変換('A',a) :- !.
大文字小文字相互変換(a,'A') :- !.
大文字小文字相互変換('B',b) :- !.
大文字小文字相互変換(b,'B') :- !.
大文字小文字相互変換('C',c) :- !.
大文字小文字相互変換(c,'C') :- !.
大文字小文字相互変換('D',d) :- !.
大文字小文字相互変換(d,'D') :- !.
大文字小文字相互変換('E',e) :- !.
大文字小文字相互変換(e,'E') :- !.
大文字小文字相互変換('F',f) :- !.
大文字小文字相互変換(f,'F') :- !.
大文字小文字相互変換('G',g) :- !.
大文字小文字相互変換(g,'G') :- !.
大文字小文字相互変換('H',h) :- !.
大文字小文字相互変換(h,'H') :- !.
大文字小文字相互変換('I',i) :- !.
大文字小文字相互変換(i,'I') :- !.
大文字小文字相互変換('J',j) :- !.
大文字小文字相互変換(j,'J') :- !.
大文字小文字相互変換('K',k) :- !.
大文字小文字相互変換(k,'K') :- !.
大文字小文字相互変換('L',l) :- !.
大文字小文字相互変換(l,'L') :- !.
大文字小文字相互変換('M',m) :- !.
大文字小文字相互変換(m,'M') :- !.
大文字小文字相互変換('N',n) :- !.
大文字小文字相互変換(n,'N') :- !.
大文字小文字相互変換('O',o) :- !.
大文字小文字相互変換(o,'O') :- !.
大文字小文字相互変換('P',p) :- !.
大文字小文字相互変換(p,'P') :- !.
大文字小文字相互変換('Q',q) :- !.
大文字小文字相互変換(q,'Q') :- !.
大文字小文字相互変換('R',r) :- !.
大文字小文字相互変換(r,'R') :- !.
大文字小文字相互変換('S',s) :- !.
大文字小文字相互変換(s,'S') :- !.
大文字小文字相互変換('T',t) :- !.
大文字小文字相互変換(t,'T') :- !.
大文字小文字相互変換('U',u) :- !.
大文字小文字相互変換(u,'U') :- !.
大文字小文字相互変換('V',v) :- !.
大文字小文字相互変換(v,'V') :- !.
大文字小文字相互変換('W',w) :- !.
大文字小文字相互変換(w,'W') :- !.
大文字小文字相互変換('X',x) :- !.
大文字小文字相互変換(x,'X') :- !.
大文字小文字相互変換('Y',y) :- !.
大文字小文字相互変換(y,'Y') :- !.
大文字小文字相互変換('Z',z) :- !.
大文字小文字相互変換(z,'Z') :- !.
大文字小文字相互変換(_対象外の文字,_対象外の文字).