12 lines
370 B
Plaintext
12 lines
370 B
Plaintext
lvars ar = {2 4 3 1 2};
|
|
;;; Convert array to list.
|
|
;;; destvector leaves its results and on the pop11 stack + an integer saying how many there were
|
|
destvector(ar);
|
|
;;; conslist uses the items left on the stack plus the integer, to make a list of those items.
|
|
lvars ls = conslist();
|
|
;;; Sort it
|
|
sort(ls) -> ls;
|
|
;;; Convert list to array
|
|
destlist(ls);
|
|
consvector() -> ar;
|