このディレクトリの索引
http://hibari.2ch.net/test/read.cgi/tech/1294061094/277
#  [1] 授業単元:プログラミング言語(C) 
#  [2] 問題文(含コード&リンク): 
#  Cプログラミングの基礎[新訂版]発行:サイエンス社 著:蓑原隆より 
#  P48 3.1 3.2 3.3 3.4  P55 4.1 P88 5.1 P104 6.1 6.2 
#  http://ime.nu/upload.jpn.ph/upload/img/u72273.jpg 
#  http://ime.nu/upload.jpn.ph/upload/img/u72276.jpg 
#  http://ime.nu/upload.jpn.ph/upload/img/u72274.jpg 
#  http://ime.nu/upload.jpn.ph/upload/img/u72275.jpg 
#  
#  6.2 2つの文字列を読み込み、アルファベットの部分については、
#  大文字小文字を区別しないで比較したときに同じ文字列かどうか
#  判定するプログラムを作成せよ。
#  例 "js1rnc" "JS1RNC" ならば同じ。

'2つの文字列を読み込み、アルファベットの部分については、大文字小文字を区別しないで比較したときに同じ文字列かどうか判定する' :-
        '2つの文字列を読み込み'(_文字列1,_文字列2),
        atom_codes(_文字列1,Codes1),
        atom_chars(_文字列2,Codes2),
        小文字コードを大文字コードに変換(Codes1,Codes),
        小文字コードを大文字コードに変換(Codes2,Codes).

小文字コードを大文字コードに変換([],[]) :- !.
小文字コードを大文字コードに変換([Code1|R1],[Code2|R1]) :- !.
        Code1 >= 97,
        Code1 =< 122,
        Code2 is Code1 - 32,
        小文字コードを大文字コードに変換(R1,R2),!.
小文字コードを大文字コードに変換([Code|R1],[Code|R1]) :-
        小文字コードを大文字コードに変換(R1,R2),!.