8 lines
161 B
Tcl
8 lines
161 B
Tcl
set Q [list]
|
|
empty Q ;# ==> 1 (true)
|
|
push Q foo
|
|
empty Q ;# ==> 0 (false)
|
|
push Q bar
|
|
peek Q ;# ==> foo
|
|
pop Q ;# ==> foo
|
|
peek Q ;# ==> bar
|