このディレクトリの索引
#  お題:表計算ソフトで使われる列名 A,B,C,...,Z,AA,AB,AC,...,AZ,BA,BB,BC,... 
#  をAを1番目とした番号に変換せよ

'表計算ソフトで使われる列名 A,B,C,...,Z,AA,AB,AC,...,AZ,BA,BB,BC,...をAを1番目とした番号に変換せよ'(_列名,_番号) :-
        atom_codes(_列名,_文字コードならび),
        順序番号に変換する(_文字コードならび,_番号).

順序番号に変換する([],0).
順序番号に変換する([_文字番号|_残りならび],_番号) :-
        length(_残りならび,_乗),
        順序番号に変換する(_残りならび,_番号_1),
        _番号 is (_文字番号 - 64) * (26 ^ _乗) + _番号_1.