Do I have the Smalltalk version right?

size := 640*480*2.
image := ByteArray new: size withAll: 0.
lookup := ByteArray new: size withAll: 0.

Time millisecondsToRun: [
	1 to: size do: [ :i |
		image at: i put: (lookup at: (image at: i ) + 1)
	]
]

"159"


-- 
..tom
remove dashes in email for replies
http://isectd.sourceforge.net