Anonymous user
Sorting algorithms/Bubble sort: Difference between revisions
m
→{{header|REXX}}: removed some blank lines. -- ~~~~
No edit summary |
m (→{{header|REXX}}: removed some blank lines. -- ~~~~) |
||
Line 2,279:
=={{header|REXX}}==
<lang rexx>/*REXX program sorts an array using the bubble-sort method. */▼
▲/*REXX program sorts an array using the bubble-sort method. */
call gen@ /*generate array elements. */
Line 2,287 ⟶ 2,286:
call show@ ' after sort' /*show after array elements*/
exit
/*─────────────────────────────────────BUBBLESORT subroutine───────*/
bubbleSort: procedure expose @.; parse arg n /*n=number of items.*/
Line 2,294 ⟶ 2,291:
do until done /*sort until it's done. */
done=1 /*assume it's done (1=true).*/
end▼
▲ end /* 1=true 0=false */
▲ end
end
return
/*─────────────────────────────────────GEN@ subroutine─────────────*/
gen@: @.=
@.1 ='---letters of the Hebrew alphabet---'
@.2 ='===================================='
Line 2,343 ⟶ 2,334:
highItem=highItem-1 /*adjust highItem slightly. */
return
/*─────────────────────────────────────SHOW@ subroutine────────────*/
show@: widthH=length(highItem) /*maximum width of any line.*/
do j=1 for highItem▼
say 'element' right(j,widthH) arg(1)':' @.j▼
▲ do j=1 for highItem
end
▲ say 'element' right(j,widthH) arg(1)':' @.j
say copies('─',80) /*show a seperator line. */
return</lang>
'''output'''
<pre style="height:30ex;overflow:scroll">
element 1 before sort: ---letters of the Hebrew alphabet---
|