Return to bst.gen CVS log

Up to [Research Unix] / researchv10dc / vol2 / anim

Annotation of researchv10dc/vol2/anim/bst.gen, revision 1.1.1.1

1.1       root        1: awk '
                      2: BEGIN {        n = 20; root = null = -1
                      3:        for (i = 1; i <= n; i++)
                      4:                root = insert(root, null, int(1000*rand()), 0)
                      5: }
                      6: function insert(p, pp, x, d) { # node p, parent pp, value x, depth d
                      7:        if (p == null) {
                      8:                val[p = ++nodecount] = x
                      9:                lson[p] = rson[p] = null
                     10:                if (pp != null) print "line", val[pp], 1-d, val[p], -d
                     11:                print "text ljust", val[p], -d, "\"" x "\""
                     12:                print "click insert"
                     13:        } else if (x < val[p])
                     14:                lson[p] = insert(lson[p], p, x, d+1)
                     15:        else if (x > val[p])
                     16:                rson[p] = insert(rson[p], p, x, d+1)
                     17:        return p
                     18: }
                     19: '

This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.