このディレクトリの索引
http://hibari.2ch.net/test/read.cgi/tech/1284632294/619
#  [1] 授業単元:C++ベーシック  
#  [2] 問題文(含コード&リンク): 1~1000の間のすべてのぞろ目を調べて、その数を表示するプログラムを作りなさい。 
#  

'1~1000の間のすべてのぞろ目を調べて、その数を表示する' :-
        findcount(_ぞろ目,(
                    for(1,_ぞろ目,1000),
                    number_chars(_ぞろ目,L),
                    ぞろ目(L)
                    write_formatted('%t\n',[_ぞろ目])),
                _ぞろ目の数),
        write_formatted('ぞろ目の数は %t です\n',[_ぞろ目の数]).

ぞろ目([A,A]) :- !.
ぞろ目([A,A|R]) :- ぞろ目([A|R]).