Sorting algorithms/Heapsort: Difference between revisions
Content added Content deleted
m (→version 1: added whitepace, changed comments and indentations.) |
m (→{{header|REXX}}: added comments, changed the vertical list of the names of the Greek alphabet letters.) |
||
Line 2,284: | Line 2,284: | ||
return |
return |
||
/*──────────────────────────────────GEN@ subroutine─────────────────────*/ |
/*──────────────────────────────────GEN@ subroutine─────────────────────*/ |
||
gen@: @.= |
gen@: @.=; @.1='---modern Greek alphabet letters---' /*default; title.*/ |
||
@.2= copies('=', length(@.1)) /*match sep with ↑*/ |
|||
@.1 = '---modern Greek alphabet letters---' |
|||
⚫ | |||
@.2 = copies('=', length(@.1)) |
|||
@. |
@.4='beta' ; @.10='theta' ; @.16='xi' ; @.22='upsilon' |
||
@. |
@.5='gamma' ; @.11='iota' ; @.17='omicron' ; @.23='phi' |
||
@. |
@.6='delta' ; @.12='kappa' ; @.18='pi' ; @.24='chi' |
||
@. |
@.7='epsilon' ; @.13='lambd' ; @.19='rho' ; @.25='psi' |
||
@. |
@.8='zeta' ; @.14='mu' ; @.20='sigma' ; @.26='omega' |
||
⚫ | |||
@.9 = 'eta' ; @.17 = 'omicron' ; @.25 = 'psi' |
|||
@.10 = 'theta' ; @.18 = 'pi' ; @.26 = 'omega' |
|||
do #=1 while @.#\==''; end /*find how many entries in list. */ |
do #=1 while @.#\==''; end /*find how many entries in list. */ |