brittany/data/Test277.hs

3 lines
118 B
Haskell

buildG bounds0 edges0 = accumArray (flip (:)) [] bounds0 (map reassoc edges0)
where reassoc (v, e, w) = (v, (e, w))