2008-03-22から1日間の記事一覧
ダブル完全数です。この前はリスト内包表記のことをすっかり忘れていましたが、今回は覚えていましたよ。 main = do print $ [x | x <- [1..10000], (x * 2) == sumOfAliquots(x)] sumOfAliquots :: Int -> Int sumOfAliquots n = sum $ aliquots n where al…
ダブル完全数です。この前はリスト内包表記のことをすっかり忘れていましたが、今回は覚えていましたよ。 main = do print $ [x | x <- [1..10000], (x * 2) == sumOfAliquots(x)] sumOfAliquots :: Int -> Int sumOfAliquots n = sum $ aliquots n where al…
