-- reciprocalSum [2,5] = (1 % 2) + (1 % 5)
--                     = 7 % 1
reciprocalSum :: Integral a => [a] -> Rational
reciprocalSum = sum . map (recip . toRational)
reciprocalSum :: Integral a => [a] -> Rational
reciprocalSum = sum . map (recip . toRational)
reciprocalSum = sum . map (recip . toRational)