先日ESMで開かれたよちよち.hsに参加しました． そこで剰余を使わずにzip3と無限リストを使ってFizzBuzzを書く話があったので書いてみました． fizzbuzz = map fizzbuzz' $ zip3 [1..] (cycle ["","","Fizz"]) (cycle ["", "", "", "","Buzz"]) where fizzbu…