Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with HTTPS or Subversion.

Download ZIP
tree: 2d529c693f
Fetching contributors…

Cannot retrieve contributors at this time

11 lines (7 sloc) 0.279 kb
module Main (main) where
import qualified Data.Vector as V
import qualified IntMap as I
constructMap :: V.Vector (Int, [Int]) -> I.IntMap [Int]
constructMap = V.foldl' go I.empty
where go m (k,v) = snd $ I.insertWith (++) k v m
main = constructMap V.empty `seq` return ()
Jump to Line
Something went wrong with that request. Please try again.