Return to add3.icn CVS log

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

Annotation of 43BSD/contrib/icon/book/18/add3.icn, revision 1.1

1.1     ! root        1: record largint(coeff,link)
        !             2: 
        !             3: procedure add(g1,g2,carry)
        !             4:    local sum
        !             5:    /carry := largint(0)        # default carry
        !             6:    if /g1 & /g2 then return if carry.coeff ~= 0 then carry
        !             7:    else &null
        !             8:    if /g1 then return add(carry,g2)
        !             9:    if /g2 then return add(g1,carry)
        !            10:    sum := g1.coeff + g2.coeff + carry.coeff
        !            11:    carry := largint(sum / base)
        !            12:    return largint(sum % base,add(g1.link,g2.link,carry))
        !            13: end
        !            14: 
        !            15: procedure large(s)
        !            16:    if *s <= segsize then return largint(integer(s))
        !            17:    else return largint(right(s,segsize),
        !            18:       large(left(s,*s - segsize)))
        !            19: end
        !            20: 
        !            21: procedure lstring(g)
        !            22:    local s
        !            23:    if /g.link then s := g.coeff
        !            24:    else s := lstring(g.link) || right(g.coeff,segsize,"0")
        !            25:    s ?:= (tab(upto(~'0') | -1) & tab(0))
        !            26:    return s
        !            27: end

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