このディレクトリの索引
http://hibari.2ch.net/test/read.cgi/tech/1308749241/188
#  [1] 授業単元: 演算子  
#    
#  [2] 問題文: 変数の下位16ビット中の 1 のビット数を数える関数 int bit_count(int x) を作成し、それを用いて実際に 1 のビット数を数えて、その値を出力するプログラムを作成せよ。 
#    

'1 のビット数を数えて、その値を出力する'(_整数) :-
        _整数_1 is _整数 // 2,
        _整数_2 is _整数 mod 2,
        bit_count(_整数_1,_1ビット数_1),
        bit_count(_整数_2,_1ビット数_2),
        Count is _1ビット数_1 + _1ビット数_2,
        writef('1ビット数の数は %t です。\n',[Count]).