mirror of
https://gitee.com/Vancouver2017/luban-lite-t3e-pro.git
synced 2025-12-15 19:08:54 +00:00
12 lines
306 B
Forth
12 lines
306 B
Forth
|
var a = array_create(1, 2, 3)
|
||
|
|
assert(array_push(a,"a","b","c") == 3)
|
||
|
|
assert(array_pop(a), "c")
|
||
|
|
assert(array_pop(a), "b")
|
||
|
|
assert(array_pop(a), "a")
|
||
|
|
assert(array_pop(a), "3")
|
||
|
|
assert(array_pop(a), "2")
|
||
|
|
assert(array_pop(a), "1")
|
||
|
|
assert(!value_is_valid(array_pop(a)))
|
||
|
|
assert(array_clear(a))
|
||
|
|
assert(a.size == 0)
|