haskell_column_sort

module LiquidLayouts (columnSort) where
import List

columnSort xs n = concat (transpose (slice sliceSize xs))
  where 
    sliceSize = 
      ceiling (fromIntegral(length xs) / fromIntegral(n))

slice _ [] = [[]]
slice n xs = leftPartition : slice n remainder
  where
    leftPartition = take n xs
    remainder = drop n xs