18 lines
409 B
Rexx
18 lines
409 B
Rexx
-- 31 Mar 2026
|
|
include Setting
|
|
|
|
say 'SORT AN INTEGER ARRAY'
|
|
say version
|
|
say
|
|
-- Generate a demo stem, 100 items, random whole numbers
|
|
call MakeSt 'stem.','Z',100
|
|
-- Show original, 5 wide per item
|
|
call ShowSt 'stem.','random whole numbers',,5
|
|
-- Sort with (standard) numeric comparator (quicksort)
|
|
call SortSt 'stem.'
|
|
-- Show sorted
|
|
call ShowSt 'stem.','sorted!',,5
|
|
exit
|
|
|
|
-- MakeSt; ShowSt; SortSt
|
|
include Math
|