Smalltalk, используя 'value' on BlockClosure

Question

Я пытаюсь создать метод для существующего класса BlockClosure. Это метод, который мы написали на доске в классе, но он не ведет себя так, как мне хотелось бы. Это код:

BlockClosure extend[ 
    times: count[ 
     count = 0 
     ifTrue: 
     [^self value.] 
     ifFalse: 
     [self value. self times: count - 1.]. 
    ] 
]. 

Я попытался тестирования его, вводя это в интерпретатор GST:

st> x:= 5 
5 
st> y := [x-1] times: 4. 
a BlockClosure 

Но я хочу, чтобы у равен 1, в этом случае. Почему значение y становится «BlockClosure»?

EDIT: правильный метод времени.

BlockClosure extend[ 
    times: count[ 
     count = 0 
     ifFalse: 
     [self value. ^self times: count - 1.]. 
    ] 
]. 

Answer 1

Прежде всего, вы пропустили ^ в ifFalse: ветви условного оператора, который предотвращает возвращаемое значение от распространяющейся обратно из рекурсивного вызова:

ifFalse: 
[self value. ^self times: count - 1] 

Во-вторых, это фактически установит y на 4, потому что вы вычисляете x - 1 с тем же значением x каждый раз. Что вы, вероятно, хотите сделать, это переназначить обратно до x каждый раз:

y := [x := x - 1] times: 4