１０分でコーディング

頑張ってブログを書こうキャンペーン中。理由は特にない。
http://ameblo.jp/programming/entry-10001721422.html のやつ。 then の中はもっと綺麗にかけるんじゃないかと思うんだけど。

deal :: Int -> [Int] -> [[Int]]
deal num cards =
    let (h,t) = splitAt num cards
    in  if length h == num
        then map (\(x,y) -> x:y) $ zip h (deal num t)
        else replicate num []