GHC/RTSã®GCã«ã¤ã„㦠- QiitaHaskellã§åŠ¹çŽ‡ã®è‰¯ã„コードを書ããŸã‚ã«ã¯ã„ã‹ã«ä¸è¦ãªã‚µãƒ³ã‚¯ã‚’æ½°ã™ã‹ã€ã¨ã„ã†ã“ã¨ãŒé‡è¦ã ã¨è¨€ã‚ã‚Œã¦ã„ã¾ã™ã€‚ã—ã‹ã—ã€ãã‚‚ãã‚‚ãªãœã‚µãƒ³ã‚¯ãŒå¢—ãˆã‚‹ã¨åŠ¹çŽ‡ãŒæ‚ªããªã‚‹ã®ã§ã—ょã†ã‹ã€‚ Haskellã®ãƒ¡ãƒ¢ãƒªç¢ºä¿ã¯é«˜é€Ÿ ã¾ãšã€Haskellã«ãŠã„ã¦ãƒ¡ãƒ¢ãƒªã®ç¢ºä¿ã¯ã©ã®ç¨‹åº¦ã‚³ã‚¹ãƒˆãŒã‹ã‹ã‚‹ã‚‚ã®ãªã®ã§ã—ょã†ã‹ã€‚次ã®ãƒ—ãƒã‚°ãƒ©ãƒ を使ã£ã¦ç¢ºã‹ã‚ã¦ã¿ã¾ã—ょã†ã€‚ {-# LANGUAGE BangPatterns #-} {-# OPTIONS_GHC "-ddump-simpl" #-} module Main2 where bench :: Int -> (a -> a) -> a -> a bench n f i = go n i where go 0 !i = i go k !i = go (k-1) (f i) {-# NOINLINE bench #-} main :: IO () main = prin
{{#tags}}- {{label}}
{{/tags}}