Sorting algorithms/Bubble sort: Difference between revisions
Content added Content deleted
(Applesoft BASIC) |
|||
Line 516: | Line 516: | ||
NEXT |
NEXT |
||
LOOP WHILE(NOT changed)</lang> |
LOOP WHILE(NOT changed)</lang> |
||
==={{header|Applesoft BASIC}}=== |
|||
<lang basic>0 GOSUB 7 : IC = I%(0) |
|||
1 FOR HC = -1 TO 0 |
|||
2 LET IC = IC - 1 |
|||
3 FOR I = 1 TO IC |
|||
4 IF I%(I) > I%(I + 1) THEN H = I%(I) : I%(I) = I%(I + 1) : I%(I + 1) = H : HC = -2 * (IC > 1) |
|||
5 NEXT I, HC |
|||
6 GOSUB 9 : END |
|||
7 DIM I%(18000) : I%(0) = 50 |
|||
8 FOR I = 1 TO I%(0) : I%(I) = INT (RND(1) * 65535) - 32767 : NEXT |
|||
9 FOR I = 1 TO I%(0) : PRINT I%(I)" "; : NEXT I : PRINT : RETURN</lang> |
|||
==={{header|Sinclair ZX81 BASIC}}=== |
==={{header|Sinclair ZX81 BASIC}}=== |