be more <<<functional>>>

1 files changed, 4 insertions, 0 deletions

diff --git a/lib/Utils.hs b/lib/Utils.hs
index 89b1bd3..1381f16 100644
--- a/lib/Utils.hs
+++ b/lib/Utils.hs
@@ -6,6 +6,7 @@ module Utils ( binaryToInt
              , (&+)
              , howMany
              , sublists
+             , windows
              ) where 
 
 import Data.Char (digitToInt)
@@ -39,3 +40,6 @@ howMany predicate = length . filter predicate
 
 sublists :: [a] -> [[a]]
 sublists = concatMap inits . tails
+
+windows :: Int -> [a] -> [[a]]
+windows m = foldr (zipWith (:)) (repeat []) . take m . tails