Anonymous user
Sorting algorithms/Bubble sort: Difference between revisions
BBC BASIC solution replaced
(BBC BASIC solution replaced) |
|||
Line 237:
=={{header|BBC BASIC}}==
The Bubble sort is very inefficient for 99% of cases. This
<lang bbcbasic>
test() = 4, 65, 2, -31, 0, 99, 2, 83, 782, 1
PROCbubblesort(test(), 10)
FOR i% = 0 TO 9
REPEAT▼
PRINT test(i%) ;
NEXT
END
IF data%(J%-1) > data%(J%) THEN▼
SWAP data%(J%-1),data%(J%)▼
DEF
▲ REPEAT
l% = 0
FOR i% = 1 TO n%-1
UNTIL I% = 2▼
ENDPROC</lang>▼
l% = i%
ENDIF
NEXT
n% = l%
▲ ENDPROC</lang>
'''Output:'''
<pre>
-31 0 1 2 2 4 65 83 99 782
</pre>
=={{header|C}}==
|