find the lowest common denominator

[Didier Lachieze]

I'm not sure there is a build-in function providing the lowest common denominator.
So here is a small program doing that:

Code:

EXPORT LCD(N,M)
BEGIN
 LOCAL l:={};
 l:=INTERSECT(mat2list(idivis(N)),mat2list(idivis(M)));
 RETURN l(MIN(SIZE(l),2));
END;