lcm

one of the documented procedures in this installation of the ACS
Usage:
lcm   x   y
What it does:
returns the least common multiple of x and y
Defined in: /web/philip/tcl/ad-functional.tcl

Source code:


    if { $x==0} { return 0 }
    if { $y==0} { return 0 }
    abs [expr $x/[gcd $x $y]*$y]


philg@mit.edu