このディレクトリの索引
#  
#  EUCコードの漢字をランダムに発生させる。
#  

乱数によりEUCコードの漢字を発生させる(_除外漢字ならび,_漢字) :-
        repeat,
        乱数によりEUCコードの漢字を発生させる(_漢字),
        \+(member(_漢字,_除外漢字ならび)),!.

乱数によりEUCコードの漢字を発生させる(_漢字) :-
        repeat,
        漢字コード候補の発生(C),
        'Cが除外領域ではない'(C),
        char_code(_漢字,C),!.

漢字コード候補の発生(C) :-
        A is random mod 69,
        B is random mod 93,
        C is (176 + A) * 256 + (161 + B).

'Cが除外領域ではない'(C) :-
        \+((C >= 207 * 256 + 212,C =< 207 * 256 + 254)),
        \+((C >= 244 * 256 + 165)).