“groupn :: Int -> [a] -> [[a]] groupn _ [] = [] groupn n xs = let (xs1, xs2) = splitAt n xs in xs1 : groupn n xs2”

joan9joan9 のブックマーク 2014/01/14 15:52

その他

このブックマークにはスターがありません。
最初のスターをつけてみよう!

リストを指定した個数ずつに分割する - 趣味的にっき

    どっかで見たような気もするんですが、思い出せなかったので実装してみました。うーむ、高階関数を上手く使えそうな気もするんですが、いいのが思い付かなかったので普通に再帰で実装してみました。 module Main ...

    \ コメントが サクサク読める アプリです /

    • App Storeからダウンロード
    • Google Playで手に入れよう