Anonymous user
Sorting algorithms/Heapsort: Difference between revisions
m
→{{header|REXX}}: added comments, changed the vertical list of the names of the Greek alphabet letters.
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:
return
/*──────────────────────────────────GEN@ subroutine─────────────────────*/
gen@: @.=; @.1='---modern Greek alphabet
@.2= copies('=', length(@.1)) /*match sep with ↑*/
@.
@.
@.
@.
@.
▲@.8 = 'zeta' ; @.16 = 'xi' ; @.24 = 'chi'
do #=1 while @.#\==''; end /*find how many entries in list. */
| |||