awkrs 0.4.13

Awk implementation in Rust with broad CLI compatibility, parallel records, and experimental Cranelift JIT
Documentation 
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

# Min-heap priority queue → heapsort the input numbers ascending.
# hp[] is the 1-indexed binary heap; hn = current size.

function hpush(v,   i, t) {
  hp[++hn] = v
  i = hn
  while (i > 1) {
    t = int(i / 2)
    if (hp[t] > hp[i]) {
      v = hp[t]; hp[t] = hp[i]; hp[i] = v
      i = t
    } else { break }
  }
}

function hpop(   r, i, l, rt, sm, t) {
  r = hp[1]
  hp[1] = hp[hn]
  delete hp[hn]
  hn--
  i = 1
  while (1) {
    l = 2 * i; rt = l + 1; sm = i
    if (l  <= hn && hp[l]  < hp[sm]) sm = l
    if (rt <= hn && hp[rt] < hp[sm]) sm = rt
    if (sm == i) break
    t = hp[i]; hp[i] = hp[sm]; hp[sm] = t
    i = sm
  }
  return r
}

BEGIN { hn = 0 }

{ hpush($1 + 0) }

END {
  sep = ""
  while (hn > 0) {
    printf "%s%d", sep, hpop()
    sep = " "
  }
  print ""
}