Return to symmpy.icn CVS log

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

researchv10 Dan Cross

procedure mpy(arg1,arg2)
   return {
      (integer(arg1) * integer(arg2)) |
      (if (arg1 | arg2) == "0" then "0") |
      (if arg1 == arg2 then symop(arg2,"^","2")) |
      (if arg1 == "1" then arg2) |
      (if arg2 == "1" then arg1) |
      symop(arg1,"*",arg2)
      }
end

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