crf-chain1-constrained-0.2.0: src/Data/CRF/Chain1/Constrained/Util.hs

module Data.CRF.Chain1.Constrained.Util
( partition
) where

import Data.List (transpose)

partition :: Int -> [a] -> [[a]]
partition n =
    transpose . group n
  where
    group _ [] = []
    group k xs = take k xs : (group k $ drop k xs)