Class Collection

select: testBlock

	^ self inject: List new into: [:list :element | 

		(testBlock value: element) ifTrue: [ list add: element]. list ]