30 lines
632 B
Plaintext
30 lines
632 B
Plaintext
import ../stdlib/stdlib.sl
|
|
import ../stdlib/io.sl
|
|
import ../stdlib/arr.sl
|
|
|
|
word free_static
|
|
dup @ 1 + 8 * free
|
|
end
|
|
|
|
word main
|
|
[ 4 1 3 2 ] dup arr_sort
|
|
dup 0 swap arr_get_static puti cr
|
|
dup 1 swap arr_get_static puti cr
|
|
dup 2 swap arr_get_static puti cr
|
|
dup 3 swap arr_get_static puti cr
|
|
free_static
|
|
|
|
[ 9 5 7 ] dup arr_sorted
|
|
dup 0 swap arr_get_static puti cr
|
|
dup 1 swap arr_get_static puti cr
|
|
dup 2 swap arr_get_static puti cr
|
|
|
|
swap
|
|
dup 0 swap arr_get_static puti cr
|
|
dup 1 swap arr_get_static puti cr
|
|
dup 2 swap arr_get_static puti cr
|
|
|
|
free_static
|
|
free_static
|
|
end
|