１０分でコーディング（Haskell）

これこれ　→　１０分でコーディング
Haskellでやってみた。

deal :: Int -> String -> [String]
deal n xs
 | n > length xs = []
 | otherwise = case splitAt n xs of
                 ([],_) -> []
                 (xs,ys) -> xs : deal n ys

２０分ぐらいかかった。
splitAtの存在に気が付くまでと、ガードの方法がよく分からなかったので結構時間がかかった。