Return to add2.icn CVS log

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

Annotation of 43BSD/contrib/icon/book/18/add2.icn, revision 1.1.1.1

1.1       root        1: procedure large(s)
                      2:    local a
                      3:    a := []
                      4:    s ? {
                      5:       &pos := 0        # start at right end
                      6:       while put(a,integer(move(-segsize)))
                      7:        # add remaining digits
                      8:       if &pos ~= 1 then put(a,integer(tab(1)))
                      9:       }
                     10:    return a
                     11: end
                     12: 
                     13: procedure add(a1,a2,carry)
                     14:    local sum
                     15:    /carry := [0]       # default carry
                     16:    if *a1 = *a2 = 0 then
                     17:       return if carry[1] ~= 0 then carry else []
                     18:    if *a1 > *a2 then a1 :=: a2
                     19:    if *a1 = 0 then return add(carry,a2)
                     20:    sum := a1[1] + a2[1] + carry[1]
                     21:    carry := [sum / base]
                     22:    return push(add(a1[2:0],a2[2:0],carry),sum % base)
                     23: end
                     24: 
                     25: procedure lstring(a)
                     26:    local s
                     27:    s := ""
                     28:    every s := right(!a,segsize,"0") || s
                     29:    s ?:= (tab(upto(~'0') | -1) & tab(0))
                     30:    return s
                     31: end

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