Sorting algorithms/Bubble sort: Difference between revisions

<lang rexx>

/*REXX program sorts an array using the bubble-sort method. */

call gen@ /*generate array elements. */

call show@ 'before sort' /*show before array elements*/

call bubbleSort highItem /*invoke the bubble sort. */

call show@ ' after sort' /*show after array elements*/

exit

/*─────────────────────────────────────BUBBLESORT subroutine───────*/

bubbleSort: procedure expose @.; parse arg n /*n=number of items.*/

/*diminish #items each time.*/

do until done /*sort until it's done. */

done=1 /*assume it's done (1=true).*/

do j=1 for n-1 /*sort M items this time. */

k=j+1 /*point to next item. */

if @.j>@.k then do /*out of order ? */

_=@.j /*assign to a temp variable.*/

@.j=@.k /*swap current with next. */

@.k=_ /*... and next with _ */

done=0 /*indicate it's not done. */

end /* 1=true 0=false */

end

return

/*─────────────────────────────────────GEN@ subroutine─────────────*/

gen@: @.='' /*assign default value. */

@.1 ='---letters of the Hebrew alphabet---'

@.2 ='===================================='

@.3 ='aleph [alef]'

@.4 ='beth [bet]'

@.5 ='gimel'

@.6 ='daleth [dalet]'

@.7 ='he'

@.8 ='waw [vav]'

@.9 ='zayin'

@.10='heth [het]'

@.11='teth [tet]'

@.12='yod'

@.13='kaph [kaf]'

@.14='lamed'

@.15='mem'

@.16='nun'

@.17='samekh'

@.18='ayin'

@.19='pe'

@.20='sadhe [tsadi]'

@.21='qoph [qof]'

@.22='resh'

@.23='shin'

@.24='taw [tav]'

do highItem=1 while @.highItem\=='' /*find how many entries. */

highItem=highItem-1 /*adjust highItem slightly. */

/*─────────────────────────────────────SHOW@ subroutine────────────*/

show@: widthH=length(highItem) /*maximum widht of any line.*/

do j=1 for highItem

say 'element' right(j,widthH) arg(1)':' @.j

say copies('─',80) /*show a seperator line. */

element 1 before sort: ---letters of the Hebrew alphabet---

element 2 before sort: ====================================

element 3 before sort: aleph [alef]

element 4 before sort: beth [bet]

element 5 before sort: gimel

element 6 before sort: daleth [dalet]

element 7 before sort: he

element 8 before sort: waw [vav]

element 9 before sort: zayin

element 10 before sort: heth [het]

element 11 before sort: teth [tet]

element 12 before sort: yod

element 13 before sort: kaph [kaf]

element 14 before sort: lamed

element 15 before sort: mem

element 16 before sort: nun

element 17 before sort: samekh

element 18 before sort: ayin

element 19 before sort: pe

element 20 before sort: sadhe [tsadi]

element 21 before sort: qoph [qof]

element 22 before sort: resh

element 23 before sort: shin

element 24 before sort: taw [tav]

────────────────────────────────────────────────────────────────────────────────

element 1 after sort: ---letters of the Hebrew alphabet---

element 2 after sort: ====================================

element 3 after sort: aleph [alef]

element 4 after sort: ayin

element 5 after sort: beth [bet]

element 6 after sort: daleth [dalet]

element 7 after sort: gimel

element 8 after sort: he

element 9 after sort: heth [het]

element 10 after sort: kaph [kaf]

element 11 after sort: lamed

element 12 after sort: mem

element 13 after sort: nun

element 14 after sort: pe

element 15 after sort: qoph [qof]

element 16 after sort: resh

element 17 after sort: sadhe [tsadi]

element 18 after sort: samekh

element 19 after sort: shin

element 20 after sort: taw [tav]

element 21 after sort: teth [tet]

element 22 after sort: waw [vav]

element 23 after sort: yod

element 24 after sort: zayin

────────────────────────────────────────────────────────────────────────────────