【激突】関数型言語　VS　オブジェクト指向言語2at TECH

---

■コピペモード
□スレを通常表示
□オプションモード
□このｽﾚｯﾄﾞのURL
■項目テキスト
256:デフォルトの名無しさん 12/04/13 08:18:23.98 全くなんの工夫もないが $ cat fizzbuzz.hs import Control.Monad (mapM_) main = mapM_ (runFizzBuzz . gizz . buzz . fizz) [1, 3, 5, 7, 15, 21, 35, 105] runFizzBuzz (n, s) 　| s == "" = putStrLn $ show n 　| otherwise = putStrLn $ show s fizz n 　| n `mod` 3 == 0 = (n, "Fizz") 　| otherwise = (n, "") buzz (n, s) 　| n `mod` 5 == 0 = (n, showString s "Buzz") 　| otherwise = (n, s) gizz (n, s) 　| n `mod` 7 == 0 = (n, showString s "Gizz") 　| otherwise = (n, s) $ runghc fizzbuzz.hs 1 "Fizz" "Buzz" "Gizz" "FizzBuzz" "FizzGizz" "BuzzGizz" "FizzBuzzGizz" 257:デフォルトの名無しさん 12/04/13 08:45:35.77 この場合の顧客がのぞむもの。 map (gizz . buzz . fizz) [1, 3, 5, 7, 15, 21, 35, 105] -- [1, "FIzz", "Buzz", "Gizz", "FizzBuzz", "FizzGizz", "BuzzGizz", "FizzBuzzGizz"] map (buzz . gizz . fizz) [1, 3, 5, 7, 15, 21, 35, 105] -- [1, "FIzz", "Buzz", "Gizz", "FizzBuzz", "FizzGizz", "GizzBuzz", "FizzGizzBuzz"]

---

次ページ

最新レス表示

レスジャンプ

類似スレ一覧

スレッドの検索

話題のニュース

おまかせリスト

オプション

しおりを挟む

スレッドに書込

スレッドの一覧

暇つぶし2ch