crf-chain1-0.2.3: src/Data/CRF/Chain1/Util.hs

module Data.CRF.Chain1.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)