Collection>>argmax

argmax.st

!Collection methodsFor: 'statistics' stamp: 'rsbohn 5/24/2024 13:45:07'!
argmax
     "Returns the index of the maximum value in the given collection."
     | maxIndex maxValue |
     maxIndex := 1.
     maxValue := self at: 1.
     2 to: self size do: [:i |
         (self at: i) > maxValue ifTrue: [
             maxIndex := i.
             maxValue := self at: i.
         ]
     ].
     ^ maxIndex! !