ちょっとはHaskellらしく書けたかな。 map fst $ zip (concat (repeat ["","","Fizz","","Buzz","Fizz","","","Fizz","Buzz","","Fizz","","","FizzBuzz"])) [1..100](追記) コメントをいただいたので、修正。 zipWith (\x y -> if x == "" then show y else…