3 Mar
2009
3 Mar
'09
9:57 a.m.
Hello Daniel, Tuesday, March 3, 2009, 5:47:36 PM, you wrote:
let v = map singleton' $ ratings contents let m = foldl1' (unionWith appendU) v v `seq` return $! m
The (v `seq` ) is completely useless. Maybe (size m) `seq` return m would help?
i suggest return $! length v return $! size m (if size really scans tree instead of using stored value :) -- Best regards, Bulat mailto:Bulat.Ziganshin@gmail.com