Return to mpy.icn CVS log

Up to [Research Unix] / researchv10dc / cmd / icon / book / 18

researchv10 Dan Cross

record largint(coeff,nextl)

procedure mpy(g1,g2)
   local prod
   if /(g1 | g2) then return &null	# zero product
   prod := g1.coeff * g2.coeff
   return largint(prod % base,
      add(mpy(largint(g1.coeff),g2.nextl),mpy(g1.nextl,g2),
      largint(prod / base)))
end

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