21 lines
318 B
Io
21 lines
318 B
Io
Node := Object clone do(
|
|
next := nil
|
|
obj := nil
|
|
)
|
|
|
|
Stack := Object clone do(
|
|
node := nil
|
|
|
|
pop := method(
|
|
obj := node obj
|
|
node = node next
|
|
obj
|
|
)
|
|
|
|
push := method(obj,
|
|
nn := Node clone
|
|
nn obj = obj
|
|
nn next = self node
|
|
self node = nn
|
|
)
|
|
)
|