Dana_Compiler/bubble.dna at ir · CodePeters/Dana_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
def main

        def bsort: n as int, x as int []

                def swap: x y as ref int
                        var t is int
                        t := x
                        x := y
                        y := t

                var changed is byte
                var i is int

                loop:
                        changed := false
                        i := 0
                        loop:
                                if i < n-1:
                                        if x[i] > x[i+1]:
                                                swap: x[i], x[i+1]
                                                changed := true
                                        i := i+1
                                else: break
                        if not changed: break

        def writeArray: n as int, x as int []
                var i is int

                i := 0
                loop:
                        if i < n:
                                if i > 0: writeString: ", "
                                writeInteger: x[i]
                                i := i+1
                        else: break
                writeString: "\n"

        var seed i is int
        var x      is int [16]

        seed := 65
        i := 0
        loop:
                if i < 16:
                        seed := (seed * 137 + 220 + i) % 101
                        x[i] := seed
                        i := i+1
                else: break
        writeArray: 16, x
        bsort: 16, x
        writeArray: 16, x