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.zigans...@gmail.com _______________________________________________ Haskell-Cafe mailing list Haskell-Cafe@haskell.org http://www.haskell.org/mailman/listinfo/haskell-cafe