diff options
| -rw-r--r-- | src/Blessings.hs | 10 |
1 files changed, 10 insertions, 0 deletions
diff --git a/src/Blessings.hs b/src/Blessings.hs index 59fc4c8..e8dfa82 100644 --- a/src/Blessings.hs +++ b/src/Blessings.hs @@ -416,3 +416,13 @@ instance (Eq a, Blessable a) => Blessable (Blessings a) where (t:ts) -> normalize $ t <> i <> Bless.intercalate i ts fromWord8 = Plain . Bless.fromWord8 + + +chunksOf :: (Eq a, Blessable a) => Int -> a -> [a] +chunksOf k = rec + where + rec t = + case Bless.splitAt k t of + (tl, tr) + | tl == mempty -> [] + | otherwise -> tl : rec tr |