Smalltalk'ın kapanmaları var mı?

Question

Kapaklar kapalıysa, üzerinde çok sayıda güçlü fonksiyonel stil tekniğini kullanabileceğimi varsayabilir miyim?

Answer 1

Evet, Smalltalk'ın kapanmaları var.

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

Kapaklar, örneği geçti etrafında ve manipüle edilebilir nesnelerdir: Aşağıdaki kod iki argümanının toplamını döndüren bir kapatma oluşturur. Eğer value, value:, value:value: göndermek bir kapatma ... değerlendirmek

sum value: 1 value: 2. 

Kapaklar belirgin yinelemenizi koleksiyonları, filtre, harita, ... bir koleksiyonun tüm değerleri ile kullanılır:

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

Dahası, döngüler gibi kontrol yapılar için kullanılır:

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

da koşul uygulanmaktadır kullanılarak kilitler:

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

Answer 2

Pharo onlara sahip:

tüm VM kapatma desteği son görüntüleri

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

İade 5 için gerekli var.

Ama dikkat ederseniz

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

çalışmaz (Cannot store into ->init …), CL (örneğin) gibi: Ben yanılmıyorsam

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

, bundan önce çalışmak için kullanılan yeni kapatma derleyicisi tanıtıldı. Yeni derleyici ile neden çalışmadığından emin değilim.