Anonymous user
Sort an integer array: Difference between revisions
m
→sort an array: added/changed whitespace, used a sparse array, eliminated zero-valued array elements.
m (→sort an array: removed STYLE from a PRE html tag.) |
m (→sort an array: added/changed whitespace, used a sparse array, eliminated zero-valued array elements.) |
||
Line 1,241:
===sort an array===
This REXX version creates an array with over a score of Euler numbers (integers), then sorts it.
<lang rexx>/*REXX program
numeric digits 30
call tell 'un-sorted' /*display the array before sort. */
call esort size /*sort the array of Euler numbers*/
call tell ' sorted' /*display the array after sort. */
▲size=21 /*have a list of 21 Euler numbers*/
exit /*stick a fork in it, we're done.*/
/*──────────────────────────────────ESORT subroutine────────────────────*/
esort: procedure expose
do while h>1; h=h%2
do i=1 for N-h; j=i; k=h+i
do while
parse value
if h>=j then leave; j=j-h;
end /*while
end /*i*/
end /*while h>1*/
Line 1,283 ⟶ 1,273:
/*──────────────────────────────────TELL subroutine─────────────────────*/
tell: say center(arg(1),50,'─')
do j=1 for size
say arg(1) 'array element' right(j,length(size))'='right(
end /*j*/
say
|