Repeated String：長いlengthはダメ

[TTsurutani]

https://www.hackerrank.com/challenges/repeated-string/problem

シンプルにこう書いたが、効率が悪いらしい

rs str n = length.filter (== head str).take n .cycle $ str