ধনাত্মক পূর্ণসংখ্যা একটি সেটের লঘিষ্ট সাধারণ গুণিতক Aক্ষুদ্রতম postive পূর্ণসংখ্যা Bযেমন যে, প্রতিটি জন্য kমধ্যে Aসেখানে পূর্ণসংখ্যা একটি ইতিবাচক বিদ্যমান nযেমন যে k*n = B।

ইনপুট হিসাবে কমপক্ষে দুটি ধনাত্মক পূর্ণসংখ্যার দেওয়া, তাদের সর্বনিম্ন সাধারণ একাধিক আউটপুট।

বিধি

বিল্টিনগুলি অনুমোদিত, তবে যদি আপনার সমাধানটি একটি ব্যবহার করে, আপনি বিকল্প বিকল্প সমাধান অন্তর্ভুক্ত করতে উত্সাহিত হবেন যা জিসিডি / এলসিএম বিল্টিন ব্যবহার করে না। যাইহোক, বিকল্প সমাধানটি আপনার স্কোরের দিকে মোটেই গণনা করবে না, সুতরাং এটি সম্পূর্ণ alচ্ছিক।
সমস্ত ইনপুট এবং আউটপুটগুলি আপনার ভাষার জন্য স্থানীয়ভাবে উপস্থাপনযোগ্য সীমার মধ্যে থাকবে। যদি আপনার ভাষা স্থানীয়ভাবে নির্বিচারে-বৃহত পূর্ণসংখ্যার পক্ষে সক্ষম হয়, তবে আপনার সমাধানটি নির্বিচারে বড় ইনপুট এবং আউটপুটগুলির সাথে কাজ করতে হবে।

পরীক্ষার মামলা

[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

— ঐ মেগো
সূত্র

6

কারণ এটি একটি যুক্তিসঙ্গতভাবে ঘন ঘন ভুল ধারণা: এলসিএম (ক, খ) = আব / জিসিডি (ক, খ) সূত্রটি দুটি সংখ্যার বেশি বা (এই বিষয়ে, একটি সংখ্যায় প্রসারিত হয় না )।

— গ্রেগ মার্টিন

4

আসলে, 12 1 বাইট

গল্ফিং পরামর্শগুলি এখনও স্বাগত, যদিও কাঁচা এলসিএম অন্তর্নির্মিতে কীভাবে উন্নতি করা যায় তা সম্পর্কে আমি নিশ্চিত নই। এটি অনলাইন চেষ্টা করুন!

▲

বিল্ট-ইন ব্যতীত একটি 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.

— Sherlock9
সূত্র

আপনি বুঝতে পারছেন যে আপনি বিল্টিন ব্যবহারের অনুমতি পেয়েছেন, তাই না?

— মেগো

1

@ মেগো আমি এটিতে যুক্ত করব, তবে আমার বোঝার বিষয়টি হ'ল বিল্টিনগুলি নিরুৎসাহিত করা হয়েছিল, তাই আমি প্রথমে এটি ব্যবহার করিনি।

— শার্লক 9

1

বিল্টিনগুলি অনুমোদিত। তারা মোটেই নিরুৎসাহিত হবেন না - আমি কেবল অন্তর্নির্মিত সমাধানগুলিকেও অন্তর্ভুক্ত করতে উত্সাহিত করতে চেয়েছিলাম কারণ সেগুলি বিল্টিনের চেয়ে প্রায়শই বেশি আকর্ষণীয় হয়।

— মেগো

1

আমি আসলে হিসাবে এটি পড়েন , 1 বাইট ।

— programmer5000

2

@ প্রোগ্রামার ৫০০০ আমি মনে করি এ কারণেই সম্ভবত ভাষাকে বলা হয় ...

— সক্র্যাটিক ফিনিক্স

17

জাভাস্ক্রিপ্ট (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]));

স্নিপেট প্রসারিত করুন

— Hedi
সূত্র

অবশ্যই ... আমি এই কৌশলটি দিয়ে একটি লুপ করার কথা ভেবেছিলাম, তবে পুনরাবৃত্তিটি আরও ছোট।

— ETH প্রোডাকশনগুলি

1

এটি জিনিয়াস ... যদি আমি স্মরণ করি, someঅ্যারেতে অন্তত একটি উপাদান শর্ত পূরণ করে, সত্য ফিরে আসে?

— ওয়েলওয়েস্ট

12

05 এ বি 1 ই / 2 এসবেবল , 2 বাইট

.¿

এটি অনলাইন চেষ্টা করুন! 05AB1E
বা 2sable এ

— acrolith
সূত্র

11

জেলি , 3 বাইট

æl/

এলসিএম দ্বারা হ্রাস। এটি অনলাইন চেষ্টা করুন! বা সমস্ত পরীক্ষার কেস যাচাই করুন ।

বিকল্প সংস্করণ, 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.

— ডেনিস
সূত্র

8

পাইথন, 69 65 52 50 বাইট

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

ডেনিসের জন্য 2 বাইট সংরক্ষণ করা হয়েছে!

বেশ সোজা সোজা পুনরাবৃত্তির সমাধান, কিছু পরীক্ষার ক্ষেত্রে কাজ করার জন্য আপনাকে পুনরাবৃত্তি সীমাটি কিছুটা উচ্চতর করতে হবে।

— Loovjo
সূত্র

1

anyজেনারেটর লাগে; আপনার বন্ধনী প্রয়োজন নেই।

— ডেনিস

3

A=lambda l,i=1:all(i%a<1for a in l)or-~A(l,i+1)আরও কয়েকটি বাইট সংরক্ষণ করে।

— ডেনিস

8

এমএটিএল , 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 রিলিজে সংশোধন করা হয়েছে : অ-ফ্যাক্টর প্রাইমস এবং তাদের (শূন্য) এক্সপোশনগুলি এড়িয়ে যায়। এটি উপরের কোডটিতে কোনও প্রভাব ফেলবে না, যা কোনও পরিবর্তনের প্রয়োজন ছাড়াই কাজ করে।

— লুইস মেন্ডো
সূত্র

6

জুলিয়া (3 বাইট) [অন্তর্নির্মিত কাজ করছে]

lcm     # Using LCM built-in (3 Bytes)

ডেনিস যেমন উল্লেখ করেছেন, আমি ভুলে যেতে থাকি যে জুলিয়া স্বয়ংক্রিয়ভাবে ইনপুটগুলিকে ভেক্টরাইজ করে।

উদাহরণ:

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

— ম্যাজিক অক্টোপাস উরন
সূত্র

6

পাওয়ারশেল ভি 2 +, 73 60 বাইট

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

ইনপুট লাগে $a, থেকে উর্ধ্বগামী loops $i=1সঙ্গে $i++একটি শর্তাধীন উপর ভিত্তি করে। শর্তটি ওটি কোয়ালিফাইড ($a|?{!($i%$_)}).countহচ্ছে । অর্থ, লুপ প্রান্ত যখন উপাদান যে হয় এর ভাজক হয় উপাদান সমান । তারপরে, পাইপলাইনে একটি নির্জনটি ছেড়ে যায় এবং আউটপুট অন্তর্ভুক্ত থাকে।-ne$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

— AdmBorkBork
সূত্র

4

গণিত, 3 বাইট

LCM

ব্যবহার:

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

Out[1]= 2520

— alephalpha
সূত্র

6

ম্যাথামেটিকা যেদিন জেলির সাথে মেলে সেদিনটি আমি কখনও ভাবিনি যে আমি দেখব।

— স্টিভেন এইচ।

3

চেদার, ৩৩ বাইট

(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

মূলত এটি এক থেকে শুরু হয় এবং এটি কোনও এলসিএম না পাওয়া পর্যন্ত বাড়তে থাকে

— Downgoat
সূত্র

3

জাভাস্ক্রিপ্ট (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 সন্ধান করে।

— ETHproductions
সূত্র

আমার সমাধানটি এটাই হত:a=>a.reduce((l,n)=>l*n/(g=(m,n)=>n?g(n,m%n):m)(l,n))

— নিল

@ নীল আপনি যদি এটি চান তবে পোস্ট করতে পারেন। আমার কৌশলটি যে সংক্ষিপ্তভাবে পেতে পারে তা নিয়ে আমার সন্দেহ ...

— ETH প্রোডাকশনগুলি

3

ডায়ালগ এপিএল, 2 বাইট

∧/

এলসিএম দ্বারা হ্রাস। ট্রাইএপিএলে এটি পরীক্ষা করুন ।

— ডেনিস
সূত্র

4

অভিনন্দন 100k!

— তামা

3

জাভাস্ক্রিপ্ট (ES6), 52 বাইট

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

আমি reduceএই উত্তরটি যথাসম্ভব পেরে উঠতে পারলাম তবে আমি অবশ্যই @ হেডির উত্তরটির সরলতার কাছে কোথাও যাব না।

— নিল
সূত্র

3

জাভা 8, 75 59 121 89 বাইট

ইউক্যালিডিয়ান অ্যালগরিদম এবং LCM (A, B) = A * B / GCD (A, B) এর সত্যতা ব্যবহার করে

16 বাইট বন্ধ। @ কারাসোকম্পুটিং ধন্যবাদ
মাল্টি-ইনপুট + 62 বাইট যুক্ত করা হয়েছে
32 বাইট বন্ধ। অলিভিয়ার গ্রাগোয়ারকে ধন্যবাদ

কোড:

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;}

— রোমান গ্রাফ
সূত্র

প্রযুক্তিগতভাবে একটি স্নিপেট, তবে আপনি যুক্ত করলে n->{...}আমি বিশ্বাস করি এটি কার্যকর জাভা 8 হয়ে যায়

— ম্যাজিক অক্টোপাস উরন

ধন্যবাদ। আমি জাভাতে ল্যাম্বদা দেখতে অভ্যস্ত হওয়ার চেষ্টা করছি। ল্যাম্বদা দিয়ে আপনি সম্ভবত কিছু লুপ লফ করতে পারেন। কিন্তু আমি জানি না কিভাবে।

— রোমান গ্রাফ

হ্যাঁ, সমস্ত জিনিস জাভা মধ্যে একটি চিন্তাভাবনা; আপনি সম্ভবত পাইথনে এটি শিখার চেয়ে ভাল হবেন :)।

— ম্যাজিক অক্টোপাস আরন

আমি যদি কিছু মিস করছি না, তবে এটি

— দুটিরও

আপনি GCD গনা থাকে, তাহলে আপনি গলফ আরো অনেক কিছু যা করতে পারেন: int g(int a,int b){return b<1?a:g(b,a%b);}। এলসিএম তখন int l(int[]a){int l=1;for(int n:a)l=l*n/g(l,n);return l;}মোট 99 বাইটের হয়ে উঠতে পারে ।

— অলিভিয়ার গ্রাগোয়ার

2

এমএটিএল , 3 বাইট

&Zm

এটি অ্যারে ইনপুট সহ বিল্টিন ফাংশনটি ব্যবহার করে।

এটি অনলাইন চেষ্টা করুন!

— লুইস মেন্ডো
সূত্র

2

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

— Fatalize
সূত্র

2

পার্ল 6 , 10 বাইট

{[lcm] @_}

মূলত:

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

— ব্র্যাড গিলবার্ট বি 2 গিলস
সূত্র

2

জে, 11 বাইট

>./&.(_&q:)

এলসিএম বিল্টিন ব্যবহার করে 3 টি বাইটের জন্য একটি সমাধান রয়েছে ।

*./

ব্যাখ্যা

>./&.(_&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

— মাইল
সূত্র

2

সিজেম, 18 17 16 বাইট

মার্টিন ইন্ডারকে ধন্যবাদ 1 বাইট

এলসিএম না পাওয়া পর্যন্ত বাড়ছে Incre

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

এটি অনলাইনে চেষ্টা করুন

— Neorej
সূত্র

1

আমি সিজেএমের সাথে পুরোপুরি পরিচিত নই, তবে পুনরায় ব্যবহারযোগ্যতা বিধিটি সম্পূর্ণ কর্মসূচির জন্য নয়, ফাংশনগুলির জন্য। যদি আপনার 17-বাইট সমাধানটি এমন একটি সম্পূর্ণ প্রোগ্রাম যা ধারাবাহিকভাবে রানগুলি জুড়ে কাজ করে তবে তা ঠিক।

— মেগো

2

রকেট 13 বাইট

lcm র্যাকেটের একটি অন্তর্নির্মিত ফাংশন:

(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))

আউটপুট:

— rnso
সূত্র

আহা। কীভাবে আপনি এই সিনট্যাক্সটি ব্যবহার করতে পারেন। আমি যখন র‌্যাকেট শেখার চেষ্টা করতাম তখন আমি সর্বদা হাল ছেড়ে দিয়েছিলাম।

— রোমান গ্রাফ

1

বন্ধনীতে প্রথম শব্দটি একটি পদ্ধতির নাম, বাকীটি তার আর্গুমেন্ট। যদি একটি আর্গুমেন্ট একটি পদ্ধতি হয়, এটি তার নিজের বন্ধনীতে থাকতে হবে। মান (অ-পদ্ধতি) বন্ধনী ছাড়াই লিখিত হয়। আমি এটি কার্যকরী প্রোগ্রামিংয়ের উপর চাপের অতিরিক্ত সুবিধা সহ একটি দুর্দান্ত সাধারণ-উদ্দেশ্যমূলক ভাষা বলে মনে করি। লিস্প থেকে প্রাপ্ত, প্রোগ্রামিংয়ের সেই ক্ষেত্রটি কভার করার একটি ধারণাও পেয়ে যায়।

— rnso

লিস্পের চেয়ে র‌্যাকেট এবং স্কিমে কোডিং কীওয়ার্ড এবং ভাষাটি সহজ বলে আমি খুঁজে পাই।

— rnso

হ্যাঁ, তবে আমি কি বলেছিলাম যে আমি লিস্পকে বুঝতে পারি? আমি আরও জেলি বা জাভার মতো ভাষা পছন্দ করি।

— রোমান গ্রাফ

1

জাভা এবং র‌্যাকেটের মধ্যে মূল সিনট্যাক্স পার্থক্য হ'ল f (a, b) বনাম (ফেব), x + y + z বনাম (+ xyz), x == y বনাম (eq? Xy) এবং x = 2 বনাম (এক্স 2 নির্ধারণ করুন) , বা যদি ইতিমধ্যে সংজ্ঞায়িত করা হয়, (সেট! এক্স 2)। এছাড়াও পাবলিক স্ট্যাটিক শূন্যতা বা আইটি চার স্ট্রিং ইত্যাদির মতো ধরণের ঘোষণা করার দরকার নেই আশা করি এটি আবার র‌্যাকেটে আপনার আগ্রহী হয়ে উঠবে।

— rnso

2

আর, ৩৩ বাইট (অন্তর্নির্মিত নয়)

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

ইনপুট নেয়। তারপরে মোড গ্রহণ করে প্রতিটি ধনাত্মক পূর্ণসংখ্যার পরীক্ষা করে।

— ব্যবহারকারী
সূত্র

আমি বিশ্বাস করি catআপনার শেষের প্রায় প্রয়োজনi

— জিউসেপ

@ জিউস্পেপ যখন আমি এটি চালাব, মানটি ভালভাবে ছাপবে।

— ব্যবহারকারী5957401

এখানে আলোচনাটি দেখুন , তবে আমি মনে করি ec=T+5 এর চেয়ে +4 এর জন্য ভাল cat()।

— জিউসেপ

1

নির্বিশেষে এই কিছু নিচে golfed যাবে v=scan();while(any((F=F+1)%%v)){};Fসঙ্গে cat()বা ec=Tযথাক্রমে এটা 40 বা 39 বাইট উপার্জন। এবং +1, খুব সুন্দর পদ্ধতির।

— জিউসেপ

1

পাইথ, 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

— দ্য
সূত্র

1

হাস্কেল, 10 বাইট

foldr1 lcm

ব্যবহারের উদাহরণ: foldl1 lcm [5,2,9,10,3,4,4,4,7]-> 1260।

— nimi
সূত্র

1

সি #, 50 + 18 = 68 বাইট

পদ্ধতি নির্ধারণের জন্য 50 বাইট, লিনকিউ আমদানির জন্য +18 বাইট।

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

অনেক অন্যান্য উত্তর অনেক হিসাবে একই। এটি এলসিএম না পাওয়া পর্যন্ত পুনরাবৃত্তভাবে গণনা করে। আমি কিছুটা অবাক হয়েছিলাম এটি স্ট্যাকওভারফ্লো এক্সপ্লেশনটি পায়নি, সুতরাং আমার কাছে একটি পুনরাবৃত্ত সংস্করণও রয়েছে যা আসলে মাত্র 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
;

— দুধের
সূত্র

1

পিপ , 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

— DLosc
সূত্র

1

পিএইচপি, 42 74 বাইট

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

সোজা এগিয়ে: 1 থেকে উপরে
লুপ $f; যদি $f*$aবাকীটি $bছাড়াই বিভাজক হয় তবে এলসিএম পাওয়া যায়।

আমি সম্পূর্ণরূপে ওভারড্রেড করেছিলাম at least... যে কোনও সংখ্যক পরামিতির কোড এখানে:

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

লুপটি $f1 থেকে উপরের দিকে যখন অভ্যন্তরীণ লুপটি $ আরগিতে চলে না।
লুপ $iথেকে 2থেকে $argc-1যখন $f*$argv[1]ভাগ মাধ্যমে $argv[$i]একটি বাকি ছাড়া।
উভয় লুপ ভেঙ্গে টুকরো মুদ্রণ $f*$argument 1।

— তিতাস
সূত্র

1

প্রোলোগ (এসডাব্লুআই) , 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),!.

— eush77
সূত্র

1

পাইথন 3, 83 বাইট

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

— Hydreigos
সূত্র

পিপিসিজিতে আপনাকে স্বাগতম!

— লাইকনি

আপনি এটি অনলাইনে চেষ্টা করার মতো কোনও অনলাইন টেস্টিং সাইটের কোনও লিঙ্ক অন্তর্ভুক্ত করতে চাইতে পারেন ! সুতরাং আপনার উত্তর যাচাই করা অন্যের পক্ষে সহজ।

— লাইকনি

1

ব্র্যাচল্যাগ ভি 2, 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.

একটি সন্দেহজনকভাবে ধীর কিন্তু উল্লেখযোগ্যভাবে সংক্ষিপ্ত সমাধান:

ব্র্যাচল্যাগ ভি 2, 5 বাইট

f⊇p~d

এটি অনলাইন চেষ্টা করুন!

আউটপুট ভেরিয়েবলের মাধ্যমে ইনপুট নেয় এবং ইনপুট ভেরিয়েবলের মাধ্যমে আউটপুট দেয়। প্রথম চারটি পরীক্ষার মামলার পুরো মুহুর্তগুলিতে রিপস তবে আমি এখনও পঞ্চমটির জন্য অপেক্ষা করছিলাম ... সাধারণভাবে, আমি এখনও এটি আমার প্রাথমিক সমাধান হিসাবে তৈরি করব এবং এটি বিশ্বাস করি যে এটি সঠিকভাবে কাজ করে, তবে কেন জানি না এটি কেন হয়নি? নিশ্চিত 9, 6, 2, 1, 5হয়েছি যে কুড়ি মিনিট আগে আমি যখন 90 দিয়েছিলাম তখন তার 90 টি এলসিএম হয় ।

(সম্পাদনা করুন: এটি 16 ঘন্টারও বেশি সময় না পরে উত্তরটি নিশ্চিত করেছে এবং 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.

এবং আরেকটি সম্পূর্ণ আলাদা শিকারী যা দুর্ঘটনাবশত ফ্যাটালাইজের ব্র্যাচল্যাগ ভি 1 সমাধানটি অনুবাদ করে:

ব্র্যাচল্যাগ ভি 2, 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.

— সম্পর্কযুক্ত স্ট্রিং
সূত্র

0

পাইথ - 7 6 বাইট

অন্তর্নির্মিত।

*F{sPM

এটি এখানে অনলাইনে চেষ্টা করুন ।

— Maltysen
সূত্র

4

[4]পুনরাবৃত্তি মৌলিক উপাদানটির সাথে ব্যর্থ হয় বা অন্য কিছু anything

— isaacg

অন্তত সাধারণ গু ণিতক

বিধি

পরীক্ষার মামলা

আসলে, 12 1 বাইট

জাভাস্ক্রিপ্ট (ES6), 36 বাইট

05 এ বি 1 ই / 2 এসবেবল , 2 বাইট

জেলি , 3 বাইট

বিকল্প সংস্করণ, 6 বাইট

কিভাবে এটা কাজ করে

পাইথন, 69 65 52 50 বাইট

এমএটিএল , 7 বাইট

ব্যাখ্যা

জুলিয়া (3 বাইট) [অন্তর্নির্মিত কাজ করছে]

উদাহরণ:

পাওয়ারশেল ভি 2 +, 73 60 বাইট

পরীক্ষার মামলা

গণিত, 3 বাইট

চেদার, ৩৩ বাইট

Ungolfed

জাভাস্ক্রিপ্ট (ES6), 63 59 বাইট

ডায়ালগ এপিএল, 2 বাইট

জাভাস্ক্রিপ্ট (ES6), 52 বাইট

জাভা 8, 75 59 121 89 বাইট

এমএটিএল , 3 বাইট

Brachylog , 17 বাইট

ব্যাখ্যা

পার্ল 6 , 10 বাইট

জে, 11 বাইট

ব্যাখ্যা

সিজেম, 18 17 16 বাইট

রকেট 13 বাইট

আর, ৩৩ বাইট (অন্তর্নির্মিত নয়)

পাইথ, 9 বাইট

হাস্কেল, 10 বাইট

সি #, 50 + 18 = 68 বাইট

পিপ , 10 বাইট

পিএইচপি, 42 74 বাইট

প্রোলোগ (এসডাব্লুআই) , 46 বাইট

পাইথন 3, 83 বাইট

ব্র্যাচল্যাগ ভি 2, 8 বাইট

ব্র্যাচল্যাগ ভি 2, 5 বাইট

ব্র্যাচল্যাগ ভি 2, 10 বাইট

পাইথ - 7 6 বাইট