09/05/30 03:42:13
>>32
Rationalな割り算は%じゃないかな。
俺はこんな感じで。
-- Haskell
import Data.Ratio
main = print $ fromRational $ sum $ takeWhile ((>0.00001) . fromRational) $ iterate (\n -> n * (1%3)) 1
09/05/30 03:42:13
>>32
Rationalな割り算は%じゃないかな。
俺はこんな感じで。
-- Haskell
import Data.Ratio
main = print $ fromRational $ sum $ takeWhile ((>0.00001) . fromRational) $ iterate (\n -> n * (1%3)) 1