" Smalltalk/Magnitude.st						-*- Smalltalk -*- "

Magnitude < aMagnitude
[
    ^self subclassResponsibility
]

Magnitude <= aMagnitude
[
    ^self < aMagnitude or: [self = aMagnitude]
]

Magnitude = aMagnitude
[
    ^self subclassResponsibility
]

Magnitude hash
[
    ^self subclassResponsibility
]

Magnitude >= aMagnitude
[
    ^aMagnitude < self or: [aMagnitude = self]
]

Magnitude > aMagnitude
[
    ^aMagnitude < self
]

Magnitude between: min and: max
[
    " Answer whether the receiver is between min and max, inclusive."
    ^min <= self and: [self <= max]
]

Magnitude max: aMagnitude
[
    ^self < aMagnitude ifTrue: [aMagnitude] ifFalse: [self]
]

Magnitude min: aMagnitude
[
    ^self < aMagnitude ifTrue: [self] ifFalse: [aMagnitude]
]

Magnitude min: aMagnitude max: anotherMagnitude
[
    ^(self min: aMagnitude) max: anotherMagnitude
]