← Каталог
Справочник по Smalltalk — 17.2. Реализация стека
Фрагмент из «Справочник по Smalltalk»: 17.2. Реализация стека.
Object subclass: #Stack
instanceVariableNames: 'contents'
package: 'Examples'
Stack >> initialize
contents := OrderedCollection new.
Stack >> push: anObject
contents addLast: anObject.
Stack >> pop
^ contents removeLast.
Stack >> isEmpty
^ contents isEmpty.Object subclass: #Stack
instanceVariableNames: 'contents'
package: 'Examples'
Stack >> initialize
contents := OrderedCollection new.
Stack >> push: anObject
contents addLast: anObject.
Stack >> pop
^ contents removeLast.
Stack >> isEmpty
^ contents isEmpty.