2006-06-13 ビット数を数える3 高階関数版(testBitを使用) bitCount3 :: Int -> Int bitCount3 b = length $ filter (testBit b) [0..bitSize(b)-1] いかにもビットを数えている感じ。分かりやすい。