5章で息絶えた漏れが貼ってみます

replicate n x = [x| _ <- [1..n]]