Sorting algorithms/Bubble sort: Difference between revisions
Add BCPL
(Added Quackery.) |
Not a robot (talk | contribs) (Add BCPL) |
||
Line 1,215:
{{out}}
<pre>Amsterdam Bern Bonn Kiev Lima Madrid Moscow Paris Rome Vienna Warschau</pre>
=={{header|BCPL}}==
<lang bcpl>get "libhdr"
let bubblesort(v, length) be
$( let sorted = false
until sorted
$( sorted := true
length := length - 1
for i=0 to length-1
if v!i > v!(i+1)
$( let x = v!i
v!i := v!(i+1)
v!(i+1) := x
sorted := false
$)
$)
$)
let start() be
$( let v = table 10,8,6,4,2,1,3,5,7,9
bubblesort(v, 10)
for i=0 to 9 do writef("%N ", v!i)
wrch('*N')
$)</lang>
{{out}}
<pre>1 2 3 4 5 6 7 8 9 10</pre>
=={{header|C}}==
| |||