このディレクトリの索引
http://pc12.2ch.net/test/read.cgi/tech/1269438098/272
#  [1] 授業単元:プログラミング 
#  [2] 問題文(含コード&リンク): 
#  整数の入った配列中の、各整数の個数を出力せよ。 
#  例えば、P[4]={1, 2, 3, 1} ならば出力は 
#  0 0 
#  1 2 
#  2 1 
#  3 1 
#  4 0 
#  となる。配列の要素数までの各整数の個数を出力すれば良い。 
#   
#  

'整数の入った配列中の、各整数の個数を出力せよ。 \n例えば、P[4]={1, 2, 3, 1} ならば出力は\n0 0 \n1 2 \n2 1 \n3 1 \n4 0 \nとなる。配列の要素数までの各整数の個数を出力すれば良い。 ' (_数値ならび) :-
      要素数を数える(_数値ならび,_数値ならびの要素数),
      for(0,N,_数値ならびの要素数),
      count(member(N,_数値ならび),_度数),
      write_formatted('%t %t\n',[N,_度数]),
      N = _数値ならびの要素数.