Integer-*primeFactors.st

'From Pharo1.2.1 of 2 April 2011 [Latest update: #12345] on 2 May 2011 at 11:52:51 am'!


!Integer methodsFor: '*primeFactors' stamp: 'SergeStinckwich 5/2/2011 11:52'!
primeFactors
	| result n i |
	result := #().
	n := self.
	i := 2.
	[ i <= n ]
		whileTrue: [ 
			[ n \\ i == 0 ]
				whileTrue: [ 
					result := result , (Array with: i).
					n := n / i ].  
					i := i + 1.
				].

	^result! !