Return to btree.icn CVS log

Up to [CSRG BSD Unix] / 43BSD / contrib / icon / book / f

Annotation of 43BSD/contrib/icon/book/f/btree.icn, revision 1.1.1.1

1.1       root        1: record bnode(value,left,right)
                      2: 
                      3: procedure btree(stree)
                      4:    local x
                      5:    stree ? if x := bnode(tab(upto('('))) then {
                      6:       move(1)
                      7:       x.left := btree(tab(bal(',')))
                      8:       move(1)
                      9:       x.right := btree(tab(bal(')')))
                     10:       }
                     11:       else x := bnode(tab(0))
                     12:    return x
                     13: end
                     14: 
                     15: procedure stree(btree)
                     16:    local s
                     17:    if /btree.left then return btree.value
                     18:    s := btree.value || "(" ||
                     19:       stree(btree.left) || "," || stree(btree.right) || ")"
                     20:    return s
                     21: end

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