Wolfram言語での>60のソルバーは
solve[a_,b_,c_] :=(
d=Differences[Sort@{a,b,c}];
n=GCD[d[[1]],d[[2]]];
r=Mod[a,n];
{n,r}
)
である。

このコードをみてどの関数が最小公倍数なんだ?