x

--
-- 友愛数のペアのうち、小さい値が引数の範囲内にあるものを返す。
--
-- ex : amicablePairs [2 .. 1200] => [(220,284),(1184,1210)
isDeficient :: Integral a => a -> Bool
isDeficient n = n + n > sumOfDivisors n
isDeficient n = n + n > sumOfDivisors n