Anonymous user
Sorting algorithms/Comb sort: Difference between revisions
→{{header|REXX}}: added/changed whitespace and comments.
(→{{header|REXX}}: added/changed whitespace and comments.) |
|||
Line 1,585:
=={{header|REXX}}==
Programming note: the REXX statement (line
<lang rexx>/*REXX program sorts a stemmed array using the comb
call gen
call show
call
/*──────────────────────────────────COMBSORT
combSort: procedure expose @.; parse arg N /*N: is number of @ elements. */
▲s=N-1 /*S: is the spread between COMBs.*/
s=N-1
do j=1 until js>=N; js=j+s
if @.j>@.js then do; _=@.j; @.j=@.js; @.js=_; done=0; end
Line 1,602 ⟶ 1,603:
end /*until*/
return
/*──────────────────────────────────GEN
gen
@.1 = '----polygon--- sides' ; @.13 = 'tridecagon 13'
@.2 = '============== =======' ; @.14 = 'tetradecagon 14'
@.3 = 'triangle 3' ; @.15 = 'pentadecagon 15'
@.4 = 'quadrilateral 4' ; @.16 = 'hexadecagon 16'
@.5 = 'pentagon 5' ; @.17 = 'heptadecagon 17'
@.6 = 'hexagon 6' ; @.18 = 'octadecagon 18'
@.7 = 'heptagon 7' ; @.19 = 'enneadecagon 19'
@.8 = 'octagon 8' ; @.20 = 'icosagon 20'
@.9 = 'nonagon 9' ; @.21 = 'hectogon 100'
@.10 = 'decagon 10' ; @.22 = 'chiliagon 1000'
@.11 = 'hendecagon 11' ; @.23 = 'myriagon 10000'
do #=1 while @.#\==''; end; #=#-1 /*
return
/*──────────────────────────────────SHOW
show
▲ end /*j*/
Data note: A ''hendecagon'' (also known as an ''undecagon''
or ''unidecagon'') it is from the Greek word
''hendeka'' [eleven] and ''gon─'' [corner]. <br>
'''output'''
<pre style="height:80ex">
element 1 before sort: ----polygon--- sides
element 2 before sort: ============== =======
|