如何优化 Haskell 程序的 IO 速度?
查看原帖
如何优化 Haskell 程序的 IO 速度?
1414372
Chihaya_Yuka楼主2024/8/3 17:45
import Control.Monad

main :: IO ()
main = do
    t <- readLn
    replicateM_ t $ do
        n <- readLn
        if n == 0
            then putStrLn "0"
            else let a = n
                     b = (n + 1) * 2
                     g = gcd a b
                 in putStrLn $ show (a `div` g) ++ "/" ++ show (b `div` g)

这段程序会在最后两个测试点 TLE.

2024/8/3 17:45
加载中...