split a list into sublists that have N items

gistfile1.hs

import Control.Monad.State

splitEvery :: Int -> [a] -> [[a]]
splitEvery n = takeWhile (not . null) . evalState (sequence $ repeat (state (splitAt n)))
                  
{-
   ghci> splitEvery 5 [1..27]
   [[1,2,3,4,5],[6,7,8,9,10],[11,12,13,14,15],[16,17,18,19,20],[21,22,23,24,25],[26,27]]
   ghci> splitEvery 5 []
   []
   ghci> splitEvery 0 [1..27]
   []
-}