lcm ( a b -- c )

Vocabulary

math

Inputs

a	an integer
b	an integer

Outputs

c	an integer

Word description

Computes the least common multiple of a and b. If either of the arguments is zero, then the returned value is zero.

Examples

USING: math prettyprint ; 10 5 lcm .
10

USING: math prettyprint ; 10 3 lcm .
30

USING: math prettyprint ; 10 8 lcm .
40

USING: math prettyprint ; 10 0 lcm .
0

USING: math prettyprint ; 0 0 lcm .
0

USING: math prettyprint ; 1/3 1/6 lcm .
1/3

Definition

USING: kernel ;

IN: math

: lcm ( a b -- c )
    [ * dup zero? ] 2keep [ simple-gcd / ] 2curry unless ;
    foldable flushable