しかのこのこのここしたんたん in Haskell

main.hs

data Pattern = Shika | Noko | Koshi | Tan deriving (Show, Eq)

toString :: Pattern -> String
toString Shika = "しか"
toString Noko  = "のこ"
toString Koshi = "こし"
toString Tan   = "たん"


generate :: [(Pattern, Int)] -> [String]
generate = concatMap (\(pattern, count) -> replicate count (toString pattern))

main :: IO ()
main = do
    let patterns = [(Shika, 1), (Noko, 3), (Koshi, 1), (Tan, 2)]
    let strings = generate patterns
    putStr (concat strings)