ナイーブ．ちょっと書き換えた．FibBuzzだとおもったら、BuzzFibというらしい。 module Main where import Data.List import System.Environment buzzfib :: [String] buzzfib = "FibBuzz" : unfoldr phi (1,1,1,tail $ cycle $ take 5 $"Buzz":repeat "") w…