煮詰まったときの頭の体操． divisors :: Int -> [Int] divisors n = divisor' n 1 where divisor' n m | n >= m * 2 && n `mod` m == 0 = m : divisor' n (m + 1) | n >= m * 2 && n `mod` m /= 0 = divisor' n (m + 1) | n < m * 2 = [] isPerfectNumber :…

今更ですが Emacs22.1 がリリースされました． このバージョンから Mac OS X 正式対応ということでビルドしてみました．とにかく 本家から最新版(22.1系)ダウンロードします．展開してから $ ./configure --enable-carbon-app $ make bootstrap $ sudo make …