From a60702dd882768e7f5b7fcadd39253ac8de9114f Mon Sep 17 00:00:00 2001 From: Joshua Rahm Date: Tue, 29 Apr 2014 03:57:40 -0600 Subject: added cheesey snow --- Graphics/Glyph/Util.hs | 13 +++++++++++++ 1 file changed, 13 insertions(+) (limited to 'Graphics') diff --git a/Graphics/Glyph/Util.hs b/Graphics/Glyph/Util.hs index 21e219a..2a3e060 100644 --- a/Graphics/Glyph/Util.hs +++ b/Graphics/Glyph/Util.hs @@ -322,3 +322,16 @@ fpart x = x - (fromIntegral (floor x::Int)) ifNaN :: (RealFloat a) => a -> a -> a ifNaN reg def = if' (isNaN reg) def reg + +everyN :: Int -> [a] -> [a] +everyN _ [] = [] +everyN n (x : xs) = x : (everyN n $ drop n xs) + +chunkList :: [a] -> [(a,a)] +chunkList l = zip [x | x <- everyN 1 l] [x | x <- everyN 1 (tail l)] + +chunkList3 :: [a] -> [(a,a,a)] +chunkList3 l = zip3 + [x | x <- everyN 2 l] + [x | x <- everyN 2 (tail l)] + [x | x <- everyN 2 (tail $ tail l)] -- cgit