24 lines
433 B
Plaintext
24 lines
433 B
Plaintext
|
import ../stdlib/stdlib.sl
|
||
|
|
import ../stdlib/io.sl
|
||
|
|
import ../stdlib/arr.sl
|
||
|
|
|
||
|
|
word main
|
||
|
|
0 arr_new
|
||
|
|
|
||
|
|
dup arr_cap puti cr
|
||
|
|
|
||
|
|
10 swap arr_push
|
||
|
|
20 swap arr_push
|
||
|
|
30 swap arr_push
|
||
|
|
|
||
|
|
dup arr_len puti cr
|
||
|
|
dup arr_cap puti cr
|
||
|
|
|
||
|
|
# print elements via explicit offsets: data[i] = @ (arr_data + i*8)
|
||
|
|
dup arr_data 0 8 * + @ puti cr
|
||
|
|
dup arr_data 1 8 * + @ puti cr
|
||
|
|
dup arr_data 2 8 * + @ puti cr
|
||
|
|
|
||
|
|
arr_free
|
||
|
|
end
|