ตัวคูณร่วมน้อยชุดของจำนวนเต็มบวกAเป็นจำนวนเต็ม postive เล็กที่สุดBเช่นว่าสำหรับแต่ละkในAมีอยู่ในเชิงบวกจำนวนเต็มดังกล่าวว่าnk*n = B

รับค่าเป็นจำนวนเต็มบวกอย่างน้อยสองค่าเป็นอินพุต

กฎระเบียบ

• อนุญาตให้สร้างบิลด์ แต่ถ้าโซลูชันของคุณใช้คุณควรสนับสนุนให้รวมโซลูชันสำรองที่ไม่ใช้ GCD / LCM ในตัว อย่างไรก็ตามโซลูชันสำรองจะไม่นับรวมกับคะแนนของคุณเลยดังนั้นจึงเป็นตัวเลือกทั้งหมด
• อินพุตและเอาต์พุตทั้งหมดจะอยู่ในช่วงที่สามารถจำแนกได้สำหรับภาษาของคุณ หากภาษาของคุณมีความสามารถตามจำนวนเต็มขนาดใหญ่โดยพลการโซลูชันของคุณจะต้องทำงานกับอินพุตและเอาต์พุตขนาดใหญ่โดยพลการ

กรณีทดสอบ

[7, 2] -> 14
[8, 1] -> 8
[6, 4, 8] -> 24
[8, 2, 1, 10] -> 40
[9, 6, 2, 1, 5] -> 90
[5, 5, 7, 1, 1] -> 35
[4, 13, 8, 8, 11, 1] -> 1144
[7, 2, 2, 11, 11, 8, 5] -> 3080
[1, 6, 10, 3, 4, 10, 7] -> 420
[5, 2, 9, 10, 3, 4, 4, 4, 7] -> 1260
[9, 7, 10, 9, 7, 8, 5, 10, 1] -> 2520

ที่จริงแล้ว12 1 ไบต์

คำแนะนำเกี่ยวกับการเล่นกอล์ฟยังคงมีอยู่แม้ว่าฉันไม่แน่ใจว่าจะปรับปรุง LCM ที่มีอยู่ภายในได้อย่างไร ลองออนไลน์!

▲

รุ่น 12 ไบต์ที่ไม่มีในตัว ยินดีต้อนรับคำแนะนำการเล่นกอล์ฟ ลองออนไลน์!

╗2`╜@♀%ΣY`╓N

Ungolfing

          Implicit input array.
╗         Save array in register 0.
2`...`╓   Starting with f(0), find the first (two) x where f(x) returns a truthy value.
          These two values will be 0 and our LCM.
  ╜         Push array from register 0.
  @         Swap the top two values. Stack: x, array
  ♀%        Map % over x and array, returning (x % item) for each item in array.
  ΣY        If the sum of all the modulos equals 0, x is either 0 or our LCM.

N         Push the last (second) value of our results. This is our LCM.
          Implicit return.

JavaScript (ES6), 36 ไบต์

f=(a,i=1)=>a.some(v=>i%v)?f(a,i+1):i

เริ่มต้นจาก1มันเป็นตัวเลขแรกที่สามารถหารด้วยทั้งหมด

f=(a,i=1)=>a.some(v=>i%v)?f(a,i+1):i
;

console.log(f([7, 2]));
console.log(f([8, 1]));
console.log(f([6, 4, 8]));
console.log(f([8, 2, 1, 10]));
console.log(f([9, 6, 2, 1, 5]));
console.log(f([5, 5, 7, 1, 1]));
console.log(f([4, 13, 8, 8, 11, 1]));
console.log(f([7, 2, 2, 11, 11, 8, 5]));
console.log(f([1, 6, 10, 3, 4, 10, 7]));
console.log(f([5, 2, 9, 10, 3, 4, 4, 4, 7]));
console.log(f([9, 7, 10, 9, 7, 8, 5, 10, 1]));

05AB1E / 2sable , 2 ไบต์

.¿

ลองออนไลน์! ใน 05AB1E
หรือ 2sable

เยลลี่ 3 ไบต์

æl/

ลดโดย LCM ลองออนไลน์! หรือตรวจสอบกรณีทดสอบทั้งหมด

รุ่นสำรอง 6 ไบต์

ÆE»/ÆẸ

ลองออนไลน์! หรือตรวจสอบกรณีทดสอบทั้งหมด

มันทำงานอย่างไร

ÆE»/ÆẸ  Main link. Argument: A (array)

ÆE      Yield all prime exponents of each integer in A.
  »/    Reduce columns (exponents that correspond to the same prime) by maximum.
    ÆẸ  Turn the resulting array of prime exponents into the corresponding integer.

Python, 69 65 52 50 ไบต์

A=lambda l,i=1:any(i%a for a in l)and A(l,i+1)or i

บันทึก 2 ไบต์ขอบคุณ Dennis!

วิธีแก้ปัญหาแบบเรียกซ้ำที่ค่อนข้างตรงไปตรงมาคุณจะต้องทำให้ขีด จำกัด การเรียกซ้ำสูงขึ้นเล็กน้อยเพื่อให้กรณีทดสอบบางข้อทำงานได้

MATL , 7 ไบต์

&YFX>^p

ไม่มีบิลด์

ลองออนไลน์!

คำอธิบาย

ลองทำ[8, 2, 1, 10]ตัวอย่างเป็นตัวอย่าง

&YF    % Take array implicitly. Push vector of prime factors and matrix of exponents 
       % of factorization, where each row represents one of the input numbers
       %   STACK: [2 3 5], [3 0 0; 1 0 0; 0 0 0; 1 0 1]
X>     % Maximum of each column
       %   STACK: [2 3 5], [3 0 1]
^      % Element-wise power
       %   STACK: [8 1 5]
p      % Product of array
       %   STACK: 40
       % Implicitly display

แก้ไข (9 มิถุนายน 2017): YFด้วยสองเอาต์พุตได้รับการแก้ไขในรุ่น 20.1.0 : ช่วงเวลาที่ไม่ใช่ปัจจัยและเลขชี้กำลัง (ศูนย์) ของพวกเขาจะถูกข้าม สิ่งนี้จะไม่ส่งผลกระทบต่อโค้ดข้างต้นซึ่งใช้งานได้โดยไม่ต้องมีการเปลี่ยนแปลงใด ๆ

Julia (3 Bytes) [กำลังทำงานในตัวไม่ใช่]

lcm     # Using LCM built-in (3 Bytes)

ในขณะที่เดนนิสชี้ให้เห็นฉันก็ยังคงลืมไปว่าจูเลียใส่สัญญาณอินพุตอัตโนมัติ

ตัวอย่าง:

println(lcm(1,2,3,4,5,6,7,8,9)) #Prints 2520

PowerShell v2 +, 73 60 ไบต์

param($a)for($i=1;($a|?{!($i%$_)}).count-ne$a.count){$i++}$i

รับอินพุต$aวนขึ้นจาก$i=1ด้วย$i++ขึ้นอยู่กับเงื่อนไข สภาพเป็นที่($a|?{!($i%$_)}).countเป็น-nOT equal $a.countไป ความหมายวงปลายเมื่อองค์ประกอบของ$aที่จะหารของมีค่าเท่ากับองค์ประกอบของ$i $aจากนั้น$iจะปล่อยให้อยู่คนเดียวบนท่อและเอาท์พุทเป็นนัย

กรณีทดสอบ

PS C:\Tools\Scripts\golfing> @(7,2),@(8,1),@(6,4,8),@(8,2,1,10),@(9,6,2,1,5),@(5,5,7,1,1),@(4,13,8,8,11,1)|%{($_-join',')+" -> "+(.\least-common-multiple.ps1 $_)}
7,2 -> 14
8,1 -> 8
6,4,8 -> 24
8,2,1,10 -> 40
9,6,2,1,5 -> 90
5,5,7,1,1 -> 35
4,13,8,8,11,1 -> 1144

PS C:\Tools\Scripts\golfing> @(7,2,2,11,11,8,5),@(1,6,10,3,4,10,7),@(5,2,9,10,3,4,4,4,7),@(9,7,10,9,7,8,5,10,1)|%{($_-join',')+" -> "+(.\least-common-multiple.ps1 $_)}
7,2,2,11,11,8,5 -> 3080
1,6,10,3,4,10,7 -> 420
5,2,9,10,3,4,4,4,7 -> 1260
9,7,10,9,7,8,5,10,1 -> 2520

Mathematica ขนาด 3 ไบต์

LCM

การใช้งาน:

In[1]:= LCM[9, 7, 10, 9, 7, 8, 5, 10, 1]                                        

Out[1]= 2520

Cheddar, 33 ไบต์

(n,i=1)f->n.any(i&(%))?f(n,i+1):i

ไม่มีอะไรใหม่สุดยอด

Ungolfed

(n, i = 1) f ->
  n.any(j -> i % j) ?
    f(n, i + 1) :
    i

โดยพื้นฐานแล้วสิ่งนี้จะเริ่มต้นที่หนึ่งและเพิ่มขึ้นเรื่อย ๆ จนกระทั่งพบ LCM

JavaScript (ES6), 63 59 ไบต์

f=([x,...a])=>a[0]?x*f(a)/(g=(m,n)=>n?g(n,m%n):m)(x,f(a)):x

ค้นหา LCM แบบซ้ำ ๆ ของสององค์ประกอบสุดท้าย

Dyalog APL, 2 ไบต์

∧/

ลดโดย LCM ทดสอบบนTryAPL

JavaScript (ES6), 52 ไบต์

a=>a.reduce((l,n)=>l*n/(g=(m,n)=>n?g(n,m%n):m)(l,n))

ฉันreduceตอบคำตอบนี้ได้มากที่สุด แต่ฉันก็ไม่ได้อยู่ใกล้ความเรียบง่ายของคำตอบ @ Hedi

Java 8, 75 59 121 89 ไบต์

ใช้อัลกอริทึมแบบยุคลิดและความจริงที่ว่า LCM (A, B) = A * B / GCD (A, B)

• ปิด16ไบต์ ขอบคุณ @carusocomputing
• เพิ่มหลายอินพุต + 62ไบต์
• ปิด32ไบต์ ขอบคุณ @Olivier Grégoire

รหัส:

public static int lcm(int l, int c){
  for(int i=1;i<=l&&i<=c;++i) 
    if (i%l==0&&i%c==0)
      return l*c/i;
}
public static int lcm(int...x){
  int y=x[0];
  for(int j:x){
    y=lcm(j,y);
  }
  return y;
}

ลบตัวแบ่งบรรทัด:

int g(int a,int b){return b<1?a:g(b,a%b);}

l->{int l=1;for(int n:a)l=l*n/g(l,n);return l;}

MATL , 3 ไบต์

&Zm

ใช้ฟังก์ชัน builtin พร้อมอินพุตอาร์เรย์

ลองออนไลน์!

Brachylogขนาด 17 ไบต์

,.#>=g:?z:%a#=h0,

ลองออนไลน์!

คำอธิบาย

,.#>=               Output is a strictly positive integer
     g:?z           Zip the Output with the Input
         :%a        Compute Output mod I for each I in the Input
            #=h0,   All results must be equal to 0

Perl 6 , 10 ไบต์

{[lcm] @_}

โดยพื้นฐานเหมือนกับ:

sub ( *@_ ) { @_.reduce: &infix:< lcm > }

J, 11 ไบต์

>./&.(_&q:)

มีวิธีแก้ปัญหาสำหรับ3 ไบต์โดยใช้ LCM builtin

*./

คำอธิบาย

>./&.(_&q:)  Input: array of integers A
      _&q:   Get the prime exponents of each integer in A
>./&         Reduce by maximum on the lists
   &. _&q:   Convert the list of exponents back to an integer

*./  Input: array of integers A
  /  Reduce using
*.     LCM

CJam, 18 17 16 ไบต์

บันทึก 1 ไบต์ขอบคุณ Martin Ender

กำลังเพิ่มขึ้นจนกระทั่งพบ LCM

q~0{)_2$f%:+}g\;

ลองออนไลน์

แร็กเก็ต 13 ไบต์

lcm เป็นฟังก์ชันในตัวใน Racket:

(apply lcm l)

การทดสอบ:

(define (f l)
   (apply lcm l))

(f (list 7 2)) 
(f (list 8 1)) 
(f (list 6 4 8)) 
(f (list 8 2 1 10)) 
(f (list 9 6 2 1 5))
(f (list 5 5 7 1 1)) 
(f (list 4 13 8 8 11 1))
(f (list 7 2 2 11 11 8 5))
(f (list 1 6 10 3 4 10 7))
(f (list 5 2 9 10 3 4 4 4 7)) 
(f (list 9 7 10 9 7 8 5 10 1))

เอาท์พุท:

14
8
24
40
90
35
1144
3080
420
1260
2520

R, 36 ไบต์ (ไม่ใช่ในตัว)

v=scan();i=1;while(any(i%%v))i=i+1;i

รับอินพุต จากนั้นทดสอบค่าจำนวนเต็มบวกแต่ละค่าโดยทำการปรับค่า

Pyth, 9 ไบต์

.U/*bZibZ

โปรแกรมที่รับอินพุตของรายการบน STDIN และพิมพ์ผลลัพธ์

ลองออนไลน์หรือตรวจสอบกรณีทดสอบทั้งหมด

มันทำงานอย่างไร

.U/*bZibZ  Program. Input: Q
.U         Reduce Q by (implicit input fill):
   *bZ      Product of current and next value
  /   ibZ   divided by GCD of current and next value
           Implicitly print

Haskell ขนาด 10 ไบต์

foldr1 lcm

ตัวอย่างการใช้งาน: ->foldl1 lcm [5,2,9,10,3,4,4,4,7]1260

C #, 50 + 18 = 68 ไบต์

50 ไบต์สำหรับการกำหนดวิธีการ +18 ไบต์สำหรับการนำเข้า LINQ

using System.Linq;int L(int[]n,int i=1)=>n.All(x=>1>i%x)?i:L(n,i+1);

ค่อนข้างเหมือนกันกับคำตอบอื่น ๆ มากมาย นับซ้ำจนกว่าจะพบ LCM ฉันรู้สึกประหลาดใจเล็กน้อยที่นี่ไม่ได้รับ StackOverflowException ดังนั้นฉันจึงมีเวอร์ชันที่ไม่ใช่แบบเรียกซ้ำซึ่งจริงๆแล้วมีความยาวเพียง 1 ไบต์

using System.Linq;n=>{for(int i=1;;i++)if(n.All(x=>1>i%x))return i;};

Ungolfed:

using System.Linq;            // Import LINQ
int L(int[] n, int i = 1) =>  // Function declaration
    n.All(x => 1 > i % x)     // Check if each x in n divides i
        ? i                   // And if so return i
        : L(n, i + 1)         // Otherwise increment i and recurse
;

Pip 10 ไบต์

W$+o%g++oo

ใช้กลยุทธ์ "ลองทุกหมายเลขจนกว่าจะถึงหนึ่งงาน" ลองออนไลน์!

            o is preinitialized to 1, g is list of cmdline args
   o%g      Mod o by each arg
 $+         Sum (truthy if any nonzero, falsy if all zero)
W           Loop while that expression is truthy:
      ++o     Increment o
         o  Autoprint o

PHP, 42 74 ไบต์

for(;($p=++$f*$argv[1])%$argv[2];);echo$p;

ตรงไปข้างหน้า:
วน$fจาก 1 ขึ้นไป; หาก$f*$aแบ่งออก$bโดยไม่มีเศษเหลืออยู่จะพบ LCM

ฉันโอเวอร์โหลดทั้งหมดat least... นี่คือรหัสสำหรับพารามิเตอร์จำนวนเท่าใดก็ได้:

for(;$i<$argc;)for($p=$argv[$i=1]*++$f;++$i<$argc&$p%$argv[$i]<1;);echo$p;

วน$fซ้ำตั้งแต่ 1 ขึ้นไปขณะที่วงภายในไม่ได้ทำงานถึง $ argc
วน$iจาก2จนถึง$argc-1ขณะที่$f*$argv[1]หารผ่าน$argv[$i]โดยไม่มีส่วนที่เหลือ
ลูปทั้งสองเสีย: $f*$argument 1การพิมพ์

Prolog (SWI)ขนาด 46 ไบต์

l([],1).
l([X|Y],P):-l(Y,Q),P is X*Q/gcd(X,Q).

ลองออนไลน์!

โซลูชันอื่น, 59 ไบต์:

l(A,X):-between(1,inf,X),forall(member(Y,A),X mod Y=:=0),!.

Python 3, 83 ไบต์

import math,functools as i
t=lambda t:i.reduce(lambda a,b:int(a*b/math.gcd(a,b)),t)

Brachylog v2, 8 ไบต์

{×↙Xℕ₁}ᵛ

ลองออนไลน์!

มันตลกมากที่แผนที่นี้ตรงกับคำจำกัดความที่ให้ไว้ในการท้าทาย

{     }ᵛ    Each element of
            the input
 ×          multiplied by
  ↙X        some arbitrary and inconsistent integer
    ℕ₁      is a natural number,
       ᵛ    which is the same for each element,
            and is the output.

ทางออกช้าลงอย่างน่าสงสัย แต่มีความหมายสั้นกว่า:

Brachylog v2, 5 ไบต์

f⊇p~d

ลองออนไลน์!

รับอินพุตผ่านตัวแปรเอาต์พุตและให้เอาต์พุตผ่านตัวแปรอินพุต ฉีกขวาผ่านการทดสอบสี่ครั้งแรก แต่ฉันยังคงรออยู่ในวันที่ห้า ... ปกติแล้วฉันยังคงแก้ปัญหาหลักของฉันและเพียงแค่เชื่อว่ามันทำงานได้อย่างถูกต้อง แต่ฉันไม่รู้ว่าทำไมมันไม่ได้ ยืนยันว่า 90 คือ LCM ของ9, 6, 2, 1, 5เมื่อฉันให้ 90ยี่สิบนาทีที่ผ่านมา

(แก้ไข: ยืนยันคำตอบภายในไม่เกิน 16 ชั่วโมงและสร้างขึ้นพร้อมกับ LCM 5, 5, 7, 1, 1หลังจากนั้นประมาณสองวัน)

         The output variable
   ~d    with duplicates removed
  p      is a permutation of
 ⊇       a sublist of
f        the factors of
         the input variable.

และอีกคำอธิบายที่แตกต่างอย่างสิ้นเชิงโดยบังเอิญว่าโซลูชั่น Brachylog v1 ของ Fatalize แปลโดยบังเอิญ:

Brachylog v2, 10 ไบต์

;.gᵗ↔z%ᵛ0<

ลองออนไลน์!

สิ่งนี้ได้รับการช่วยเหลือจากวิธีแก้ปัญหาที่ฉันทำเพื่อความท้าทายนี้ก่อนที่ฉันจะรู้ว่าผลลัพธ์ไม่ได้ถูก จำกัด ว่าเป็นจำนวนเต็ม

 .            The output
; gᵗ↔z        paired with each element of
              the input,
      %ᵛ      when the first element of each pair is taken mod the second, is always
        0     zero.
              Furthermore, the output
         <    is strictly greater than
        0     zero.

Pyth - 7 6 ไบต์

ไม่มีบิลด์

*F{sPM

ลองมันออนไลน์ได้ที่นี่