Smalltalk是否已关闭？

Question

如果它已经关闭，我可以假设我可以在那里使用很多强大的功能风格的技巧吗？

Answer 1

是的，Smalltalk已关闭。下面的代码创建一个返回其两个参数之和的闭包：

sum := [ :a :b | a + b ]. 

闭包是可实例化，传递和操纵的对象。为了评估您发送value，value:，value:value:，封闭...

sum value: 1 value: 2. 

瓶盖醒目地与集合迭代，过滤器，地图，...一个集合的所有值使用：

aCollection select: [ :each | each isOdd ]. 
aCollection inject: 0 into: [ :each :result | each + result ]. 

此外，它们可用于控制结构样环：

[ iterator hasNext ] 
    whileTrue: [ iterator next ]. 
1 to: 10 do: [ :each | ... ]. 

使用封闭件还条件语句实现：

condition 
    ifTrue: [ do this ] 
    ifFalse: [ do that ] 

Answer 2

Pharo有他们：

所有虚拟机有封闭性的支持需要 的最新图像

makeAdder := [ :x | [ :y | x + y ]]. 
add2 := makeAdder value: 2. 
add2 value: 3. 

返回5。

但是请注意，

makeCounter := [ :init | [ init := init + 1. init ]]. 

将无法​​正常工作（Cannot store into ->init …），如（例如）在CL：

CL-USER> ((lambda (init) (lambda() (incf init))) 0) 
#<COMPILED-LEXICAL-CLOSURE #xC7A495E> 
CL-USER> (funcall *) 
1 
CL-USER> (funcall **) 
2 
CL-USER> (funcall ***) 
3 

如果我没有记错，这使用之前的工作引入了新的闭包编译器。我不确定为什么它不适用于新的编译器。