Return to mpy.icn CVS log

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

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

1.1       root        1: record largint(coeff,link)
                      2: 
                      3: procedure mpy(g1,g2)
                      4:    local prod
                      5:    if /(g1 | g2) then return &null     # zero product
                      6:    prod := g1.coeff * g2.coeff
                      7:    return largint(prod % base,
                      8:       add(mpy(largint(g1.coeff),g2.link),mpy(g1.link,g2),
                      9:       largint(prod / base)))
                     10: end

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