このディレクトリの索引
http://toro.2ch.net/test/read.cgi/tech/1357191974/198
#  お題:チャンパーノウン定数を表示せよ。 
#  表示された文字列中に"991"を一つだけ含むこと。

'お題:チャンパーノウン定数を表示せよ。
表示された文字列中に"991"を一つだけ含むこと。' :-
        'チャンパーノウン定数を表示せよ。表示された文字列中に"991"を一つだけ含むこと。'(1,'0.').

'チャンパーノウン定数を表示せよ。表示された文字列中に"991"を一つだけ含むこと。'(N,A) :-
        count(sub_atom(A,_,3,_,'991'),2),!,fail.
'チャンパーノウン定数を表示せよ。表示された文字列中に"991"を一つだけ含むこと。'(N,A) :-
        atom_number(B,N),
        atom_concat(A,B,C),
        '表示された文字列中に"991"を一つだけ含むこと。'(N,C).

'表示された文字列中に"991"を一つだけ含むこと。'(N,_チャンパーノウン定数) :-
        '文字列中に"991"を一つだけ含むこと。'(_チャンパーノウン定数),
        writef('%t\n',[_チャンパーノウン定数]).
'表示された文字列中に"991"を一つだけ含むこと。'(N,C) :-
        N_2 is N + 1,
        チャンパーノウン定数を表示せよ。表示された文字列中に"991"を一つだけ含むこと。'(N_2,C,_チャンパーノウン定数).

'文字列中に"991"を一つだけ含むこと。'(_チャンパーノウン定数) :-
        count(sub_atom(_チャンパーノウン定数,_,3,_,'991'),1).

count(P,N) :-
        findall(1,P,L),
        length(L,Count).