RosettaCodeData/Task/Chinese-remainder-theorem/MATLAB/chinese-remainder-theorem-1.m

function f = chineseRemainder(r, m)
  s = prod(m) ./ m;
  [~, t] = gcd(s, m);
  f = s .* t * r';