Smalltalkでスターリンソート

Smalltalkの練習がてら、かなり賞味期限が切れたネタですがスターリンソートを実装してみました。
Advent Calendarの期限は過ぎていますが、賑やかしにスターリンの誕生日である12月18日のSmalltalk Advent Calendarに載せてみます。

実装内容

immutableなArrayの場合は自身を変えられないのでstalinSortではなくstalinSortedというメソッド名にしています。

SequencableCollection.st

stalinSorted
	^ self copy stalinSorted: [ :a :b | a <= b ]

SequencableCollection.st

stalinSorted: aBlock
	| result |
	result := self copyFrom: 1 to: 1.
	(self copyFrom: 2 to: self size) doWithIndex: [ :each :index |
		(aBlock value: result last value: each)
			ifTrue: [ result := result copyWith: each ]
			ifFalse: [ ]
	].
	^ result

いまだにSmalltalk的な書き方がよくわかりません……。

実行結果

#(6 2 5 7 3 8 8 4) stalinSorted. "#(6 7 8 8)"
#(1 2 1 3 2 3 4) stalinSorted. "#(1 2 3 3 4)"

一応期待通り（？）粛清できているようです。