いろいろ無駄があったから修正

import Data.Ratio

main = print $ fromRational $ sum $ takeWhile (>(1%100000)) $ iterate ((1%3)*) 1