>>32
Rationalな割り算は%じゃないかな。

俺はこんな感じで。

-- Haskell

import Data.Ratio

main = print $ fromRational $ sum $ takeWhile ((>0.00001) . fromRational) $ iterate (\n -> n * (1%3)) 1