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     ! 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.