14

একটি পিল্লাই প্রাইম একটি মৌলিক সংখ্যা $p$ যার জন্য কিছু ধনাত্মক $m$ যেমন রয়েছে $(m! + 1) \equiv 0 \:(\text{mod } p)$ $p \not\equiv 1\:(\text{mod }m)$

অন্য কথায়, একটি পূর্ণসংখ্যা যদি এটি একটি একটি পিল্লাই মৌলিক মৌলিক সংখ্যা , যদি আরেকটা ধনাত্মক পূর্ণসংখ্যা বিদ্যমান যেমন যে গৌণিক এর , প্লাস দিয়ে বিভাজ্য আর যদি দ্বারা বিভাজ্য নয় । $p$ $m$ $m$ $1$ $p$ $p - 1$ $m$

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

উদাহরণস্বরূপ, পিল্লাই প্রধান কারণ: $23$

এটি একটি প্রধান সংখ্যা, কেবল 2 কারণ রয়েছে।
$m = 14$ এবং উপরের শর্তগুলি পূরণ করে: এবং ভাগ করে না ; এবং টিও ভাগ করে না । $m = 18$ $23 \mid (14! + 1)$ $14$ $22$ $23 \mid (18! + 1)$ $18$ $22$

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

Truthy:

Falsy:

Truthy ক্ষেত্রে জন্য নিজ নিজ মি 'র দ্বারা [(23, [14, 18]), (59, [15, 40, 43]), (83, [13, 36, 69]), (109, [86]), (139, [16]), (593, [274])]।

হয় আপনি মান অনুসরণ করতে পারেন সিদ্ধান্ত সমস্যা আউটপুট ফরম্যাট (যে truthy / falsy মান) বা অন্যথায় বা ভাইস বিপরীতভাবে পিল্লাই মৌলিক একটি সামঞ্জস্যপূর্ণ মান এবং একটি অ-সামঞ্জস্যপূর্ণ মান আছে ।

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

— মিঃ এক্সকোডার
সূত্র

ইনপুট কি সংমিশ্রণ পূর্ণসংখ্যা হতে পারে?

— জংহওয়ান মিন

@ জংহওয়ানমিন হ্যাঁ, ইনপুটটি একটি সংমিশ্রণ পূর্ণসংখ্যার হতে পারে।

— মিঃ এক্সকোডার

আমি 437 এর মতো একটি পরীক্ষার কেস প্রস্তাব করি যা যৌগিক তবে 18 টি ভাগ করে! +1

— নাইট্রডন

@ নাইট্রডন সেই পরীক্ষার কেস যুক্ত করেছেন, আপনাকে ধন্যবাদ!

— মিঃ এক্সকোডার

1

@DanielIndie এখানে আপনি যান: [(23, 14), (23, 18), (59, 15), (59, 40), (59, 43), (83, 13), (83, 36), (83, 69), (109, 86), (139, 16), (593, 274)]। আমি তাদের চ্যালেঞ্জের সাথে যুক্ত করেছি।

— মিঃ এক্সকোডার

9

পাইথন 2 , 115 111 110 109 বাইট

^{-6 বাইটস মিঃ এক্সকোডারকে ধন্যবাদ}

lambda n:n>2and cmp(*map(all,zip(*[[n%x==1or~f(x)%n,n%x]for x in range(2,n)])))<0
f=lambda x:0**x or x*f(x-1)

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

ফাংশনগুলি দুটি অংশ নিয়ে গঠিত ~-n%x<1or~f(x)%n>0যা যা "পিল্লাই শর্তাবলী" এবং সন্তুষ্ট বৈধতার জন্য সন্তুষ্ট n না হলে n%x>0যাচাই করে।
এরপর allউভয় আইটেম প্রয়োগ করা হয়, প্রথম আইটেম উপস্থিত থাকবে False/ 0যদি হয় একটি বৈধ "পিল্লাই নম্বর", এবং দ্বিতীয় উপস্থিত থাকবে True/ 1যদি nপ্রধানমন্ত্রী হয়। এগুলিতে এই
পাস করা হয় এই সেন্টারিওতে cmpফিরে -1আসবে (একটি বৈধ পিল্লাই প্রাইম)। অন্যান্য সংমিশ্রণগুলি [[0, 0], [1, 0], [1, 1]]ফিরে আসবে 0বা1

— যষ্টি
সূত্র

2

+1, চতুর অ্যালগরিদম (এবং তাদের ব্যাখ্যা) কেন আমি এই এসইকে ভালবাসি

— IanF1

8

জেলি , 11 8 বাইট

Ṗ!%ẹ’ḍ’E

ফেরত পাঠায় 0 পিল্লাই প্রধানমন্ত্রী, জন্য 1 অন্যথায়।

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

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

Ṗ!%ẹ’ḍ’E  Main link. Argument: n

Ṗ         Pop; yield [1, ..., n-1].
 !        Take the factorial of each integer.
  %       Take the factorials modulo p.
   ẹ’     Find all indices of n-1.
     ḍ’   Test n-1 for divisibility by each of these indices.
       E  Return 1 if all of the resulting Booleans are equal (all 1 means there is
          no suitable m, all 0 means n is not prime), 0 if they are different.

— ডেনিস
সূত্র

1

মোটামুটিভাবে আমি এটিও করতে পারতাম, তবে আমি এম m [1, n) প্রমাণ করতে পারি নি ।

— এরিক আউটগলফার

4

যদি m ≥ n হয় , তবে মি! এন দ্বারা বিভাজ্য , তাই মি! + 1 ≡ 1 (মোড এন) ।

— ডেনিস

6

পরী / জিপি , 44 বাইট

p->isprime(p)&&sum(m=2,p,p%m-1&&!((m!+1)%p))

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

— alephalpha
সূত্র

5

ব্র্যাচল্যাগ , 19 বাইট

ṗ>.ḟ+₁;?%0&-₁;.%>0∧

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

প্রশ্নের বেশ সহজ সরল অনুবাদ:

ṗ          Input is a prime
>.         And output is a number less than the input
ḟ+₁;?%0    And output's factorial + 1 mod input is 0
&-₁;.%>0   And input - 1 mod output is greater than 0
∧          No further constraints

— সূন্দর - মনিকা পুনরায় স্থাপন করুন
সূত্র

3

জে , 30 26 বাইট

-4 বাইট ধন্যবাদ ফ্রাউনফ্রোগের জন্য

1 e.i.((|1+!)~<1~:|)1&p:*]

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

ব্যাখ্যা:

                        1&p:*]      checks if the number is prime and if not sets it to 0
                   1~:|             checks if p is not 1 mod m
           (|1+!)~                  m factorial plus 1 modulo n
                  <                 are both conditions met?  
       i.                           generates successive m's (a list 0..n-1)
   1 e.                             1's are at the indices of m, so if there's 1 - Pillai

— গ্যালেন ইভানভ
সূত্র

1

মডুলো এন 1~:|2 বাইট সংরক্ষণ করার চেয়ে কম কিনা পরীক্ষা করুন ।

— ফ্রাউনফ্রোগ

1

(]|1+!@[)ঠিক(|1+!)~

— ফ্রাউনফ্রোগ

@ ফ্রাউনফ্রোগ - ধন্যবাদ! আমি ভাবছিলাম ~এবং এটি আপনার আগের মন্তব্যে সান্নিধ্য লাভ করেছে।

— গ্যালেন ইভানভ

3

পাইথন 2 , 65 64 53 52 বাইট

f=lambda n,k=3,m=2:~m%n<1<n%k%(n%~-k)or f(n,k+1,m*k)

আউটপুট উপস্থিতি বা ত্রুটির অনুপস্থিতির মাধ্যমে হয়।

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

— ডেনিস
সূত্র

2

পাইথন 2 , 109 107 বাইট

lambda p:any(~-p%m>~l(m)%p<1for m in range(2,p))*all(p%i for i in range(2,p-1))
l=lambda a:0**a or a*l(a-1)

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

ব্যাখ্যা

প্রাপ্ত lসংখ্যার ফ্যাক্টরিয়ালটি সন্ধান করে যাতে 5ইনপুট ফেরত দেয় 120।

all(p%i for i in range(2,p-1))চেক যদি একটি সংখ্যা মৌলিক হয়, আমরা 0 এবং 1 উপেক্ষা হিসাবে আমাদের অন্যান্য শর্ত ইতিমধ্যে ঐ বাতিল দেখতে।

অবশেষে, আমরা any(~-p%m>-~l(m)%p==0for m in range(2,p))সমস্ত সম্ভাব্য মিটার অনুসন্ধানের মাধ্যমে পুনরাবৃত্তি করতে ব্যবহার করি যে কোনও আমাদের চাহিদা পূরণ করে কিনা তা দেখার জন্য। ~-pমানে p+1। তারপরে আমরা এটির চেয়ে বড় কিনা তা পরীক্ষা করে দেখুন -~l(m)%p(যা অনুবাদ করে (m!-1)%pএবং তারপরে আমরা এর সাথে তুলনা করি 0Bas মূলত ~-p%mঅবশ্যই 0 এর চেয়ে বড় -~l(m)%pহতে হবে এবং 0 হতে হবে।

সোর্স

গৌণিক দ্বারা 0xKirill

উন্নতি

109 থেকে 107, মিঃ এক্সকোডার

— নিল
সূত্র

2

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

F%n>n-2&(F+1)%n<1মিথ্যা ধনাত্মক প্রতিরোধের জন্য একটি দ্বিগুণ চেক আছে (তবে (F+1)%n<1জেএস সংখ্যার বড় সংখ্যা নিয়ে অন্য উপায় নয়, আমাদের কম সংখ্যার জন্য প্রয়োজন যা সমাধান বাইট গণনাটি হ্রাস করে 60

জাভাস্ক্রিপ্ট (নোড.জেএস) , 90 88 86 72 68 বাইট

আর্নৌল্ডকে 1 বাইট কমানোর জন্য ধন্যবাদ

f=(n,F=i=2,g=0)=>n%i?f(n,F*=++i,g|=F%n>n-2&(F+1)%n<1&~-n%i>0):i==n*g

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

— DanielIndie
সূত্র

2

ব্র্যাচল্যাগ , 13 বাইট

>.ḟ+₁ḋ∋?-₁f≡ⁿ

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

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

 .               The output
>                is less than the input,
       ?         the input
      ∋          is an element of
     ḋ           the prime factorization of
 .               the output's
  ḟ              factorial
   +₁            plus one,
           ≡ⁿ    and the output is not an element of
          f      the list of all factors of
       ?         the input
        -₁       minus one.

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

1

[পার্ল], 45 বাইট

use ntheory":all";is_prime($n)&&is_pillai($n)

সংখ্যার তত্ত্বের মডিউলটির অন্তর্নির্মিত ফাংশন হিসাবে পূর্বাভাস রয়েছে (is_pillai আসলে 0 বা সবচেয়ে ছোট মিটার দেয়, সুতরাং A063828ও সমাধান করে) sol অন্তর্নিহিত সি এবং পার্ল কোডটি গল্ফ হয় না (অবশ্যই)। সি কোডটি দেখে মনে হচ্ছে:

UV pillai_v(UV n) {
  UV v, fac = 5040 % n;
  if (n == 0) return 0;
  for (v = 8; v < n-1 && fac != 0; v++) {
    fac = (n < HALF_WORD) ? (fac*v) % n : mulmod(fac,v,n);
    if (fac == n-1 && (n % v) != 1)
      return v;
  }
  return 0;
}

(সাধারণভাবে UV কে uint64_t বা অনুরূপের সাথে প্রতিস্থাপন করুন এবং HALF_WORD সিদ্ধান্ত নেয় যে আমরা মালডমোডকে সাধারণ নেটিজ অপেমে অনুকূলিত করতে পারি কিনা)।

খাঁটি পার্ল কোডটি এর মতো:

sub is_pillai {
  my $p = shift;
  return 0 if $p <= 2;
  my($pm1, $nfac) = ($p-1, 5040 % $p);
  for (my $n = 8; $n < $p; $n++) {
    $nfac = mulmod($nfac, $n, $p);
    return $n if $nfac == $pm1 && ($p % $n) != 1;
  }
  0;
}

— DanaJ
সূত্র

1

সি (জিসিসি) , 64 বাইট

f(n,k,m,r){for(k=m=1,r=0;k<n;m=m*++k%n)r|=m/~-n<<(n%k==1);r/=3;}

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

— ডেনিস
সূত্র

1

ফিসফিসি ভি 2 , 230 বাইট

> 1
> Input
>> 1…2
>> L!
>> L+1
>> L∣2
>> L⋅R
>> 2%L
>> Each 4 3
>> Each 5 9
>> Each 6 10
>> Each 7 11 3
> {0}
>> 12∖13
>> Each 8 14
>> L≠1
>> Each 16 15
>> Each 7 17 15
>> 18∖13
>> [19]
>> 2’
>> 21⋅20
>> Output 22

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

এটি নন-পিলাই প্রাইমগুলির জন্য একটি খালি তালিকা এবং অন্যথায় একটি খালি খালি তালিকা দেয়।

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

হুইস্পারগুলি সঠিক / জটিল সংখ্যায় ম্যানিপুলেশন করার জন্য ডিজাইন করা হয়েছিল, ভাল পরিমাপের জন্য অ্যারে কমান্ডগুলির একটি সামান্য বিট যোগ করা হয়েছিল, সুতরাং Eachউত্পন্ন তালিকাগুলিতে পুনরাবৃত্তি করার জন্য বারবার ব্যবহার করা হয়েছে।

ফিসফিসার কিছুটা পটভূমি:

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

যদি লাইনটি শুরু হয় >, যেমন > 1বা > Input, এটি একটি ধ্রুব রেখা - এটি প্রতিবার একই মান প্রদান করে। এখানে, সংখ্যাগুলি তাদের সংখ্যাগত ফর্ম উপস্থাপন করে, তাই ডাকা হলে প্রথম লাইন সর্বদা 1 ফিরে আসবে ।

তবে লাইনটি যদি শুরু হয় >>তবে সংখ্যাগুলি অন্য লাইনের রেফারেন্স হিসাবে বিবেচনা করা হবে, ফাংশন কলগুলির মতো, যদি আপনি চান। উদাহরণস্বরূপ, লাইনে >> 1…2, …এটি পূর্ণসংখ্যা 1 এবং 2 তে কমান্ডটি সম্পাদন করে না , বরং 1 এবং 2 লাইন থেকে ফিরে আসা মানগুলিতে । এই ক্ষেত্রে, এই মানগুলি হ'ল পূর্ণসংখ্যা 1 এবং যে কোনও পূর্ণসংখ্যা আমরা ইনপুট হিসাবে পাস করেছি।

এই উদাহরণস্বরূপ, আসুন 23 এর ইনপুট বিবেচনা করা যাক । মনে রাখবেন যে হুইস্পার্স প্রিপ্রোসেসিংয়ের কারণে দ্বিতীয় লাইন ( > Input) রূপান্তরিত হয়েছে > 23।

আমাদের প্রথম কমান্ড লাইন 3 হল: >> 1…2। …dyadic পরিসর এই ক্ষেত্রে থেকে হল, 1 থেকে 23 ফলনশীল, {1, 2, ... 22, 23} । এরপরে, আমরা 9 থেকে 12 লাইনে চলে যাব :

>> Each 4 3
>> Each 5 9
>> Each 6 10
>> Each 7 11 3

এখানে আমাদের 4 ধারাবাহিক Eachবিবৃতি রয়েছে, যার প্রতিটি পূর্ববর্তী ফলাফলের সাথে পুনরাবৃত্তি করে, প্রয়োজনীয়ভাবে 4 টি কমান্ড ম্যাপিং 3 টি অ্যারে : রেঞ্জের উপরে। প্রথম তিনটি বিবৃতি 4 , 5 এবং 6 লাইন সহ সাধারণ মানচিত্র :

>> L!
>> L+1
>> L∣2

এই তিনটি কমান্ড, একটি পূর্ণসংখ্যা এন এর উপর , (n! +1) 1x দেয় , যেখানে ! উল্লেখ করে গৌণিক , | উল্লেখ করে divisbility এবং এক্স ইনপুট হয়। অবশেষে, লাইন 12 এর একটি ডায়ডিক মানচিত্র রয়েছে কাঠামো রয়েছে।

একটি ডায়াডিক মানচিত্রের কাঠামোটিতে তিনটি পূর্ণসংখ্যা লাগে: লক্ষ্য, বাম এবং ডান, প্রতিটি সূচি অন্যান্য লাইনে থাকে। এখানে, আমরা জোড়ার তালিকা তৈরির জন্য বাম এবং ডানদিকে জিপ করি, তারপরে ডায়াডিক কমান্ড (লক্ষ্য) দ্বারা প্রতিটি জোড়া হ্রাস করি। এখানে, ইনপুটটি 23 হলে তালিকাগুলি হ'ল {1, 2, ... 22, 23} এবং {0, 0, ... 1, 0} এবং আদেশটি হ'ল

>> L⋅R

যা বাম যুক্তিকে ডান দ্বারা গুণ করে। এটি পূর্ণসংখ্যার সূচকগুলিতে 0 এর সাথে পূর্ণসংখ্যার একটি অ্যারে তৈরি করে, যার ফ্যাক্টরিয়ালগুলি বর্ধিত হয়েছে ইনপুটগুলির দ্বারা বিভাজ্য নয় এবং মূল সূচকটি তারা যেখানে রয়েছে। আমরা এই অ্যারের ডাকবো একটি । এরপরে, আমরা s 0} এবং A এর মধ্যে সেট পার্থক্য নিয়ে A থেকে 0 গুলি সরিয়ে ফেলি :

> {0}
>> 12∖13

উদাহরণস্বরূপ ইনপুট সঙ্গে, এই সেট উত্পাদন করে {14, 18, 22} । এরপরে আমরা সেটটির প্রতিটি মান দিয়ে ভাগ করে নেওয়া ইনপুটটির বাকী অংশ নিই এবং সেই বাকীটি 1 টির সমান নয় কিনা তা পরীক্ষা কর :

>> 2%L
>> Each 8 14
>> L≠1
>> Each 16 15

আবার, আমাদের 0 বা 1 টি এর একটি তালিকা রয়েছে এবং 0 টি অপসারণ করতে হবে এবং 1 টি মূল মানগুলির সাথে প্রতিস্থাপন করতে হবে । এখানে আমরা উপরে উল্লিখিত কোডটির পুনরাবৃত্তি করি, তবে এর >> 18∖13পরিবর্তে 12। অবশেষে, আমরা এই ফলাফলটি একটি চূড়ান্ত চেকের জন্য একটি তালিকায় সেট করি। দুর্ভাগ্যক্রমে, আমাদের কোডকে অবশ্যই যৌথ সংখ্যাগুলি প্রত্যাখ্যান করতে হবে যা 437 এর মতো এই সমস্ত মানদণ্ড অর্জন করে । সুতরাং আমরা আমাদের চূড়ান্ত চেক যোগ করি, ইনপুটটির প্রারম্ভিকতা দ্বারা আমাদের চূড়ান্ত তালিকাটি গুণ করি। কীভাবে পাইথন সংখ্যাটি তালিকায় কাজ করে, 0 এটি একটি খালি তালিকা দিয়ে প্রতিস্থাপন করে এবং 1 এর কোনও প্রভাব নেই। সুতরাং আমরা ইনপুটটির প্রারম্ভিকতা গণনা, তালিকা দ্বারা যে গুণ মিইনপুট জন্য s এবং চূড়ান্ত ফলাফল আউটপুট:

>> 2’
>> 21⋅20
>> Output 22

0

এপিএল (এনএআরএস), 65 টি চর, 130 বাইট

{∼0π⍵:0⋄m←⎕ct⋄⎕ct←0⋄r←⍬≢a/⍨{0≠⍵∣p}¨a←k/⍨0=⍵∣1+!k←⍳p←¯1+⍵⋄⎕ct←m⋄r}

এখানে 23x এর অর্থ 23r1 হবে এবং সুতরাং ভগ্নাংশ 23/1, সুতরাং অন্যরা সমস্ত; পরীক্ষা:

  f←{∼0π⍵:0⋄m←⎕ct⋄⎕ct←0⋄r←⍬≢a/⍨{0≠⍵∣p}¨a←k/⍨0=⍵∣1+!k←⍳p←¯1+⍵⋄⎕ct←m⋄r}
  f¨23x 59x 83x 109x 139x 593x
1 1 1 1 1 1 
  f¨5x 7x 73x 89x 263x 437x
0 0 0 0 0 0

— RosLuP
সূত্র

0

সি # (ভিজ্যুয়াল সি # ইন্টারেক্টিভ সংকলক) , 138 + 22 = 160 বাইট

n=>Enumerable.Range(2,n-2).All(x=>n%x>0)&Enumerable.Range(1,n).Any(x=>{BigInteger a,b=1;for(a=1;a<=x;a++)b*=a;return(b+1)%n<1&(n-1)%x>0;})

টিআইও মনো-এর মুক্তির জন্য সিস্টেম.সংখ্যার লাইব্রেরি প্রয়োগ করে নি, তাই ফলাফলগুলি ~~অনলাইনে চেষ্টা করে~~ দেখতে পারেন ! এখানে পরিবর্তে।

ব্যাখ্যা:

using System.Numerics; //necessary to handle large numbers created by the factorials

return 
    Enumerable.Range(2,n-2).All(x=>n%x>0)       // is prime
    &
    Enumerable.Range(1,n).Any(x=>
    {
        BigInteger a,b=1;for(a=1;a<=x;a++)b*=a; //b = a!
        return (b+1)%n<1
               &                                //the condition for PPs
               (n-1)%x>0;             
    });

— Innat3
সূত্র

0

সিজেম , 37 বাইট

ri_mp\[_{_M)m!)@%!\_M)%1=!@&\}fM]);:|

আউটপুটগুলি 11যদি ইনপুটটি স্তম্ভের প্রধান হয়, অন্যথায় 00, 01বা10

ব্যাখ্যা:

                                         e# Explanation | Stack
ri_mp\[_{_M)m!)@%!\_M)%1=!@&\}fM]);:|    e# Whole code | Example input: 593
ri                                       e# Read input as integer | 593
  _                                      e# Duplicate | 593 593
   mp                                    e# Is it prime? | 593 1
     \                                   e# Swap top two stack elements | 1 593
      [                         ]        e# Delimits an array. Any operations that
                                         e# push a value are placed into the array
       _                                 e# Duplicate | 1 593 [593]
        {                    }fM         e# A for loop from 0 to (n-1) looped through
                                         e# variable M
         _                               e# Duplicate top stack value | ...[593 593]
          M)                             e# Get M+1, as if we try M=0 we get an error
                                         e# | ...[593 593 1]
            m!                           e# Factorial | ...[593 593 1]
              )                          e# Add one | ...[593 593 2]
               @                         e# Rotate stack | ...[593 2 593]
                %                        e# Modulus | ...[593 2]
                 !                       e# Equal to 0? | ...[593 0]
                  \_                     e# Swap and duplicate | ...[0 593 593]
                    M)                   e# Push M+1 | ...[0 593 593 1]
                      %                  e# Modulus | ...[0 593 0]
                       1=!               e# Not equal to 1? | ...[0 593 1]
                          @              e# Rotate | ...[593 1 0]
                           &             e# AND | ...[593 0]
                            \            e# Swap | ...[0 593]
                             }     
                                ]
                                 );      e# Dump and discard last element
                                         e# | 1 593 [...]
                                   :|    e# Flatten array with OR | 1 1
                                         e# Implicit output

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

— lolad
সূত্র

আমি কি পিল্লাই প্রাইম?

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

পাইথন 2 , 115 111 110 109 বাইট

জেলি , 11 8 বাইট

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

পরী / জিপি , 44 বাইট

ব্র্যাচল্যাগ , 19 বাইট

জে , 30 26 বাইট

ব্যাখ্যা:

পাইথন 2 , 65 64 53 52 বাইট

পাইথন 2 , 109 107 বাইট

জাভাস্ক্রিপ্ট (নোড.জেএস) , 90 88 86 72 68 বাইট

ব্র্যাচল্যাগ , 13 বাইট

[পার্ল], 45 বাইট

সি (জিসিসি) , 64 বাইট

ফিসফিসি ভি 2 , 230 বাইট

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

এপিএল (এনএআরএস), 65 টি চর, 130 বাইট

সি # (ভিজ্যুয়াল সি # ইন্টারেক্টিভ সংকলক) , 138 + 22 = 160 বাইট

সিজেম , 37 বাইট