このディレクトリの索引
http://toro.2ch.net/test/read.cgi/tech/1354393458/650
#  
#  81以下の自然数で九九に現れない数を昇順にすべて表示せよ。
#  

'81以下の自然数で九九に現れない数を昇順にすべて表示せよ。' :-
        between(1,81,_自然数),
        九九に現れない数を(_自然数),
        表示せよ(_自然数),
        _自然数 = 81.

九九に現れない数を(_自然数) :-
        \+(九九に現れる数(_自然数)).

九九に現れる数(_自然数) :-
        between(1,9,_n1),
        between(1,9,_n2),
        _自然数 is _n1 * _n2,!.

表示せよ(_自然数) :-
        writef('%t ',[_自然数]).