【激突】関数型言語 VS オブジェクト指向言語2at TECH【激突】関数型言語 VS オブジェクト指向言語2 - 暇つぶし2ch■コピペモード□スレを通常表示□オプションモード□このｽﾚｯﾄﾞのURL■項目テキスト267:デフォルトの名無しさん 12/04/13 10:18:03.23 >>256 は runFizzBuzz に渡す前までは文字列の蓄積で通してるから、 putStrLn を削るだけでリストになるんじゃね？ 268:デフォルトの名無しさん 12/04/13 10:45:33.86 継続使える言語なら書けるんじゃね？ 269:デフォルトの名無しさん 12/04/13 11:19:14.13 Scheme使いの登場を待ってるわけ？ てか継続をどう使うことを想定してるの？ 270:デフォルトの名無しさん 12/04/13 12:38:39.46 join fs n = case concatMap (\f -> f n) fs of "" -> Left n s -> Right s fizzT f s n | f n == 0 = s fizzT _ _ _ | otherwise = "" fizz = fizzT (`mod` 3) "Fizz" buzz = fizzT (`mod` 5) "Buzz" gizz = fizzT (`mod` 7) "Gizz" main = print $ join [fizz, buzz, gizz] 105 次ページ最新レス表示レスジャンプ類似スレ一覧スレッドの検索話題のニュースおまかせリストオプションしおりを挟むスレッドに書込スレッドの一覧暇つぶし2ch