From 7ded95389727f6e2899078faea2103b01091caf0 Mon Sep 17 00:00:00 2001 From: tv Date: Thu, 13 Mar 2025 22:29:30 +0100 Subject: add chunksOf --- src/Blessings.hs | 10 ++++++++++ 1 file changed, 10 insertions(+) (limited to 'src') 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 -- cgit v1.2.3