在 Pharo 中覆盖 <

Question

我正在尝试覆盖 pharo 中的“<”运算符，因为我想要一个已实现的 class 的 SortedCollection (TimeCal)。

TimeCal 有以下变量：年月日时分。

我的想法是将所有变量转换为分钟，然后将它们与 < 运算符接收的比较数进行比较。但是，我确实遇到错误

"BlockClosure(Object)>>doesNotUnderstand: #>"

这是我的代码：

< comparand
| thisInMins comparandInMins |
thisInMins := [(year * 525600) + (month * 43829) + (day * 1440) + (hour * 60) + minute].
comparandInMins := [(comparand year * 525600) + (comparand month * 43829) + (comparand day * 1440) + (comparand hour * 60) + comparand minute].

(thisInMins > comparandInMins)
ifTrue: [true] ifFalse: [false]

我用来测试它的代码：

time1 := TimeCal new. 
time1 hour: 12.
time1 day: 12.
time1 month: 11.
time2 := TimeCal new. 
time2 hour: 12.
time2 day: 12.
time2 month: 8.
testing := time1 < time2.

我不确定我的做法是否正确。我找不到有关如何操作的任何适当指南。

Answer 1

如果您已正确初始化变量，这应该有效：

< comparand
| thisInMins comparandInMins |
thisInMins := (year * 525600) + (month * 43829) + (day * 1440) + (hour * 60) + minute.
comparandInMins := (comparand year * 525600) + (comparand month * 43829) + (comparand day * 1440) + (comparand hour * 60) + comparand minute.

^ thisInMins < comparandInMins

为什么你在计算分钟数时用方括号括起来？

也看看这个：ifTrue: [true] ifFalse: [false]。如果某事为真则返回真，如果某事为假则返回假似乎是不必要的步骤。您可以直接return比较分钟的结果。

Answer 2

这个呢

< other
    year = other year ifFalse: [^year < other year].
    month = other month ifFalse: [^month < other month].
    day = other day ifFalse: [^day < other day].
    hour = other hour ifFalse: [^hour < other hour].
    ^minute < other minute

在 Pharo 中覆盖 <

Overriding < in Pharo

overriding

smalltalk

pharo