このディレクトリの索引
%  
%  SWI-Prolog の readln/1 では
%  ?- readln(X).
%  :| abc,def
%  X = [abc,',',def] が期待される。
%  ところが漢字を用いると
%  ?- readln(X).
%  :| 尾崎,隆大
%  X = [尾,崎,',',隆,大] となって漢字の部分を語と認識しない。
%  この問題を回避する為の一時凌ぎが以下の述語である。
%  予め、アトムを構成する文字コードのリストを utf16_code/1 で定義して置く。
%  

:- findall(X,between(12288,40959,X),L1),
   findall(Y,between(65280,65299,Y),L2),
   append(L1,L2,L),
   assertz(utf16_code(L)).

readln(X) :-
        utf16_code(U),
        readln(X,_,_,U,_).