19 Jun
2007
19 Jun
'07
11:14 a.m.
Neil Mitchell wrote:
Perhaps:
packString x = sum (map ord x) `seq` x
Will give you what you need. That function should have the same strictness as the original packString.
Or alternatively the slightly less evil packString x = foldr (\ y ys -> y `seq` y : ys) [] x Tom