Logikoma
8a02674af5
All checks were successful
akbasic CI Build / cmake_build (push) Successful in 3m34s
akbasic CI Build / coverage (push) Successful in 4m4s
akbasic CI Build / sanitizers (push) Successful in 6m59s
akbasic CI Build / akgl_build (push) Successful in 7m57s
akbasic CI Build / mutation_test (push) Successful in 23m28s
Move every program and expectation out of tests/reference and register the unified tests/language corpus as local cases. Remove the old immutable-corpus protections from build, maintenance, and documentation paths. Co-authored-by: andrew <andrew@aklabs.net>
30 lines
711 B
QBasic
30 lines
711 B
QBasic
10 DIM A#(5)
|
|
15 ITERATIONS# = 0
|
|
20 A#(0) = 5
|
|
21 A#(1) = 2
|
|
22 A#(2) = 4
|
|
23 A#(3) = 1
|
|
24 A#(4) = 3
|
|
25 PRINT "BEFORE SORTING: "
|
|
26 FOR I# = 0 TO 4
|
|
27 PRINT A#(I#)
|
|
28 NEXT I#
|
|
30 CHANGED# = 0
|
|
32 ITERATIONS# = ITERATIONS# + 1
|
|
35 FOR I# = 0 TO 3
|
|
45 J# = I#+1
|
|
46 REM PRINT "COMPARING INDEXES " + I# + " (" + A#(I#) + ") AND " + J# + "
|
|
50 IF A#(I#) <= A#(J#) THEN GOTO 100
|
|
55 REM PRINT "SWAPPING INDEXES " + I# + " AND " + J#
|
|
60 TMP# = A#(I#)
|
|
70 A#(I#) = A#(J#)
|
|
80 A#(J#) = TMP#
|
|
85 CHANGED# = CHANGED# + 1
|
|
100 NEXT I#
|
|
110 IF CHANGED# <> 0 THEN GOTO 30
|
|
115 PRINT "AFTER SORTING:"
|
|
120 FOR I# = 0 TO 4
|
|
130 PRINT A#(I#)
|
|
140 NEXT I#
|
|
145 PRINT "SORTED IN " + ITERATIONS# + " ITERATIONS"
|