RosettaCodeData/Task/Least-common-multiple/AppleScript/least-common-multiple-1.applescript

-- LEAST COMMON MULTIPLE -----------------------------------------------------

-- lcm :: Integral a => a -> a -> a
on lcm(x, y)
    if x = 0 or y = 0 then
        0
    else
        abs(x div (gcd(x, y)) * y)
    end if
end lcm


-- TEST ----------------------------------------------------------------------
on run

    lcm(12, 18)

    --> 36
end run

-- GENERIC FUNCTIONS ---------------------------------------------------------

-- abs :: Num a => a -> a
on abs(x)
    if x < 0 then
        -x
    else
        x
    end if
end abs

-- gcd :: Integral a => a -> a -> a
on gcd(x, y)
    script
        on |λ|(a, b)
            if b = 0 then
                a
            else
                |λ|(b, a mod b)
            end if
        end |λ|
    end script

    result's |λ|(abs(x), abs(y))
end gcd