文系しねよ - 暇つぶし2ch

文系しねよ at TECH

680:デフォルトの名無しさん
08/12/31 21:27:36
>>665
とりあえずHaskell版

import Data.Set(fromList, member)

fizzbuzz n
| member n $ fromList [15,30..100] = print "FizzBuzz"
| member n $ fromList [5,10..100] = print "Fizz"
| member n $ fromList [3,6..100] = print "Buzz"
| otherwise = print n
main = mapM_ fizzbuzz [1..100]

次ページ

続きを表示

1を表示