37 lines
811 B
Text
37 lines
811 B
Text
deftrait Ordering as: ->
|
|
# This trait defines ordering comparisons for types.
|
|
|
|
def <Ordering.Result> compare_with other: Any
|
|
|
|
def equals? other: Any, as: ->
|
|
match compare_with(other),
|
|
Ordering.Equal: true,
|
|
Any: false
|
|
end
|
|
|
|
def greater_than? other: Any, as: ->
|
|
match compare_with(other),
|
|
Ordering.Greater: true,
|
|
Any: false
|
|
end
|
|
|
|
def greater_than_or_equal_to? other: Any, as: ->
|
|
match compare_with(other),
|
|
Ordering.Greater: true,
|
|
Ordering.Equal: true,
|
|
Any: false
|
|
end
|
|
|
|
def less_than? other: Any, as: ->
|
|
match compare_with(other),
|
|
Ordering.Less: true,
|
|
_: false
|
|
end
|
|
|
|
def less_than_or_equal_to? other: Any, as: ->
|
|
match compare_with(other),
|
|
Ordering.Less: true,
|
|
Ordering.Equal: true,
|
|
Any: false
|
|
end
|
|
end
|