このディレクトリの索引 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 ',[_自然数]).