4 lines
111 B
Text
4 lines
111 B
Text
|
((0 <) (-1 *) when) :abs
|
||
|
|
((dup 0 ==) (pop abs) (swap over mod) () linrec) :gcd
|
||
|
|
(over over gcd '* dip div) :lcm
|