一组数字的最小公倍数（LCM）A是最小整数b，使得b/a对于所有的整数的整数a在A。此定义可以扩展为有理数！

任务

找到最小的正有理数， b使得它b/a是输入中所有有理数的整数。 a

规则

• 禁止出现标准漏洞。
• 您可以在输入中分别使用分子和分母，但不能使用双精度数，浮点数等。
• 输入可能没有完全减少。
• 您可以将分母为的整数输入作为有理数1。
• 允许将有理数提供给LCM / GCD内置文件的提交是允许的，但不竞争。

测试用例

In:  3
Out: 3

In:  1/17
Out: 1/17

In:  1/2, 3/4
Out: 3/2

In:  1/3, 2/8
Out: 1

In:  1/4, 3
Out: 3

In:  2/5, 3
Out: 6

In:  1/2, 3/4, 5/6, 7/8
Out: 105/2

这是代码高尔夫球，因此使用最少字节的提交会获胜！

果冻，19字节

g/:@$€Z©Ḣæl/;®Ḣg/$¤

在线尝试！

J，3个字节，无竞争。

*./

给定一系列合理的输入，这将使LCM折叠起来。

sed，374（373 + 1）字节

^{sed的-E标志计为一个字节。注意：我还没有尝试过打高尔夫球，而且可能不会有一段时间了。}
输入为一元，输出为一元。空格必须围绕每个分数。范例：echo " 1/111 111/11111 111111/111 "。

:d;s, (1*)/\1(1*), \1/\22,;s,(1*)(1*)/\2 ,2\1/\2 ,;td;s,1*(1/22*),\1,g;s,(22*/1)1*,\1,g;:r;s,((1*)/1*)2,\1\2,;s,2(1*/(1*)),\2\1,;tr;h;s,1*/,,g;:g;s/^(1*) 1(1*) 1(1*)/1\1 \2 \3/;tg;s/  */ /g;s/^/ /;/1 1/bg;x;s,/1*,,g;s/^( 1*)( 1*)/\1\2\2/;:l;s/^(1*) (1*) \2(1*)/\1\2 \2 \3/;tl;/  $/be;/  /{s/^(1*) 1*  1*( 1*)/ \1\2\2/;bl};s/^(1* 1* )(1*) (1*)/\1\2\3 \3/;bl;:e;G;s, *\n *,/,

在线尝试！

Python 2，65个字节（非竞争）

lambda x:reduce(lambda x,y:x*y/gcd(x,y),x)
from fractions import*

在线尝试！

JavaScript（ES6），85个字节

a=>a.reduce(([b,c],[d,e,g=(b,c)=>c?g(c,b%c):b,h=g(b*e,c*d),i=g(b*d,h)])=>[b*d/i,h/i])

看起来没有内置功能！毫无疑问，有人会使用递归方法或其他方法击败它。

Pari / GP，3字节，无竞争

lcm

在线尝试！

Perl 6的， 46  42个字节

{[lcm](@_».numerator)/[gcd] @_».denominator}

测试一下

{[lcm](($/=@_».nude)[*;0])/[gcd] $/[*;1]}

测试一下

输入是有理数的列表。

展开：

{ # bare block lambda with implicit parameter list ｢@_｣

  [lcm](            # reduce using &infix:<lcm>
    (
      $/ = @_».nude # store in ｢$/｣ a list of the NUmerators and DEnominiators
                    # ((1,2), (3,4))

    )[
      *;            # from all of the first level ｢*｣,
      0             # but only the 0th of the second level (numerators)
    ]
  )
  /
  [gcd] $/[ *; 1 ]  # gcd of the denominators
}

视网膜，117字节

\d+
$*
\b(1+)(\1)*/(\1)+\b
$#2$*11/$#3$*
{`^((1+)\2*)/(1+)+ (\2)+/\3+\b
$1 $#4$*1/$3
}`\G1(?=1* (1+))|\G 1+
$1
1+
$.&

在线尝试！将输入作为不正确分数的空格分隔序列（无整数或带整数）。说明：

\d+
$*

将十进制转换为一元。

\b(1+)(\1)*/(\1)+\b
$#2$*11/$#3$*

这会将每个分数降低到最低的条件。捕获组1代表分子和分母的GCD，因此我们计算之前和之后的捕获次数/。\b(1+)+/(\1)+\b由于某种原因，似乎无法正确计算捕获次数，因此我使用了一个额外的捕获组，并将结果加1。

{`^((1+)\2*)/(1+)+ (\2)+/\3+\b
$1 $#4$*1/$3

这可以做很多事情。捕获组2表示前两个分数的分子的GCD，而捕获组3表示分母的GCD。$#4因此是第二个分子除以其GCD。（同样，我无法捕获第一个分子的捕获数量，但我只需要将一个分子除以它们的GCD，就不会花那么多钱。）

}`\G1(?=1* (1+))|\G 1+
$1

现在，第二个分子已被其GCD除以，我们只需使用一元算术教程中的此表达式将两者相乘即可得到LCM。然后，我们对剩余的分数重复练习。

1+
$.&

将一元转换回十进制。

普通Lisp，154个字节

(defun f(l &aux(s(pairlis l l)))(loop(and(eval`(=,@(mapcar'car s)))(return(caar s)))(let((x(assoc(reduce'min s :key'car)s)))(rplaca x(+(car x)(cdr x))))))

使用的算法（指定为整数，但也适用于有理数）。

首先，将输入数据与其自身建立关联列表，以跟踪元素的初始值，因此操作顺序由列表中的“汽车”给出。

(defun f(l &aux (s (pairlis l l)))        ; make the associative list
  (loop
     (when (eval `(= ,@(mapcar 'car s))) ; when the car are all equal
       (return (caar s)))                 ; exit with the first one
     (let ((x (assoc (reduce 'min s :key 'car) s))) ; find the (first) least element
       (rplaca x (+ (car x) (cdr x))))))  ; replace its car adding the original value (cdr)

测试用例：

CL-USER> (f '(3))
3
CL-USER> (f '(1/17))
1/17
CL-USER> (f '(1/2 3/4))
3/2
CL-USER> (f '(1/3 2/8))
1
CL-USER> (f '(1/4 3))
3
CL-USER> (f '(2/5 3))
6
CL-USER> (f '(1/2 3/4 5/6 7/8))
105/2

注意：该解决方案不使用接受整数的build lcm和gcd。

Mathematica，3字节，无竞争

LCM

Mathematica的内置LCM功能能够处理有理数输入。

PHP，194字节

<?for(list($n,$d)=$_GET,$p=array_product($d);$x=$n[+$k];)$r[]=$x*$p/$d[+$k++];for($l=1;$l&&++$i;$l=!$l)foreach($r as$v)$l*=$i%$v<1;for($t=1+$i;$p%--$t||$i%$t;);echo$p/$t>1?$i/$t."/".$p/$t:$i/$t;

-> 4字节的PHP> = 7.1 [$n,$d]=$_GET而不是list($n,$d)=$_GET

在线尝试！

通用Lisp，87 78字节

使用lcm和gcd具有整数输入：

(defun l(a)(/(apply #'lcm(mapcar #'numerator a))(apply #'gcd(mapcar #'denominator a))))

更多高尔夫：

(defun l(a)(eval`(/(lcm,@(mapcar'numerator a))(gcd,@(mapcar'denominator a))))