FibBuzz ã‚’ Control.Arrow ã§è§£ã„ã¦ã¿ãŸ - melpon日記 - Haskellã‚‚C++ã‚‚ã¾ã¨ã‚‚ã«æ‰±ãˆãªã„ã¸ãŸã‚Œã®ãƒšãƒ¼ã‚¸ä½•ã‹ FizzBuzz å•é¡Œã‚’ã¡ã‚‡ã£ã¨ã ã‘パワーアップã•ã›ãŸã‚‚ã®ã« FibBuzz ã¨ã‹ã„ã†ã®ãŒã‚ã‚‹ãã†ã§ã€0 ã‹ã‚‰ 100 ã¾ã§ã®æ•´æ•°ã‚’ FizzBuzz ã™ã‚‹ä»£ã‚ã‚Šã«ãƒ•ã‚£ãƒœãƒŠãƒƒãƒæ•°ã®å„é …ã«å¯¾ã—㦠FizzBuzz ã™ã‚‹å•é¡Œãªã‚ˆã†ã§ã™ã€‚ é¢ç™½ãã†ãªã®ã§ä¹…々㫠Control.Arrow を引ã£å¼µã‚Šå‡ºã—ã¦ã‚„ã£ã¦ã¿ã¾ã—ãŸã€‚ ラムダå¼ä½¿ã‚ãšãƒã‚¤ãƒ³ãƒˆãƒ•ãƒªãƒ¼ã‚¹ã‚¿ã‚¤ãƒ«ã§æ›¸ã„ã¦ã¾ã™ã€‚ã“ã®è¾ºã¯åŸºæœ¬ã§ã™ã。 import Control.Arrow import Data.Function (on) fib = loop (((fst >>> uncurry (on (.) (:))) &&& (snd &&& fst >>> app) >>> app) &&& (snd >>> (snd &&& uncurry (+) >>>) >>> (uncurry (+) &&&) >>> (>>> uncurr
{{#tags}}- {{label}}
{{/tags}}