このディレクトリの索引

ヒストグラム(_サンプルならび) :-
   for(0,N,9),
   count(member(N,_サンプルならび),_度数),
   length(L,_度数),
   要素はすべてアスタリスクである(L),
   concat_atom(L,_星表示アトム),
   write_formatted('%t %t\n',[N,_星表示アトム]),
   N=9.

要素はすべてアスタリスクである(L) :- all(L,'*').