ntua_compilers/dana/programs/bsort.dana at 8426feaebe28c652fbd5d240f5d09c0fb65ed0ac · strange-program/ntua_compilers · 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
def main
  def swap: x y as ref int
    var t is int
    t := x
    x := y
    y := t

  def bsort: n as int, x as int []
    var changed is byte
    var i is int

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

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

    writeString: msg
    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 init_loop:
    if i < 16:
      seed := (seed * 137 + 221 + i) % 101
      x[i] := seed
      i := i+1
    else:
      break : init_loop
  writeArray: "Initial array: ", 16, x
  bsort: 16, x
  writeArray: "Sorted  array: ", 16, x