basic-proposal.compiler/P08.BAS at master · moocf/basic-proposal.compiler · GitHub

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
DECLARE SUB mergesort (a() AS DOUBLE, i0 AS INTEGER, i1 AS INTEGER)
DIM i, alen AS INTEGER

CLS
INPUT "A length: ", alen

DIM a(alen) AS DOUBLE
FOR i = 1 TO alen
PRINT "A ["; i; "]: ";
INPUT a(i)
NEXT
PRINT

mergesort a(), 1, alen
PRINT "A ["; alen; "]:"
FOR i = 1 TO alen
PRINT a(i)
NEXT

SUB mergesort (a() AS DOUBLE, i0 AS INTEGER, i1 AS INTEGER)
DIM l, m AS INTEGER
DIM i, j, k AS INTEGER

l = i1 - i0 + 1
IF l <= 1 THEN EXIT SUB
m = (i0 + i1) \ 2
mergesort a(), i0, m
mergesort a(), m + 1, i1
DIM z(l) AS DOUBLE

j = i0
k = m + 1
FOR i = 1 TO l

IF k > i1 THEN
z(i) = a(j)
j = j + 1

ELSEIF j <= m AND a(j) <= a(k) THEN
z(i) = a(j)
j = j + 1

ELSE
z(i) = a(k)
k = k + 1
END IF

NEXT

FOR i = 1 TO l
a(i0 + i - 1) = z(i)
NEXT

END SUB