このディレクトリの索引

http://pc12.2ch.net/test/read.cgi/tech/1258158172/735 
#  [1] 授業単元:プログラミング演習 
#  [2] 問題文: 
#    http://ime.nu/kansai2channeler.hp.infoseek.co.jp/cgi-bin/joyful/img/1023 
9.txt 
# 
文字をキーボードから入力させ、英大文字は英小文字に変換して、英小文字は英大文字に変換して、その他の文字はそのまま出力する :- 
  get_char(C), 
  conv_letter(C,X), 
  put_char(C). 

conv_letter(C1,C2) :- 
  大文字(L1), 
  list_nth(N,L1,C1), 
  小文字(L2), 
  list_nth(N,L2,C2),!. 
conv_letter(C1,C2) :- 
  小文字(L1), 
  list_nth(N,L1,C1), 
  大文字(L2), 
  list_nth(N,L2,C2),!. 
conv_letter(C,C). 

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