このディレクトリの索引
#  
#  読み順というか文字コード順でソートしているからこうなるので、 
#  漢数字がいい感じで並ぶ順を定義して実装して使えばいい 
#  

漢数字文字列の並べ替え(_漢数字文字列,_並べ直された漢数字文字列) :-
    いい感じで並ぶ順(_いい感じで並ぶ順),
    findall(_選択文字,(
                sub_atom(_いい感じで並ぶ順,_,1,_,_選択文字),
                sub_atom(_漢数字文字列,_,1,_,_選択文字)),
            _並べ直された漢数字文字ならび),
    atomic_list_concat(_並べ直された漢数字文字ならび,_並べ直された漢数字文字列).

いい感じで並ぶ順(一二三四五六七八九).