বিভিন্ন কাজ, একই অক্ষর

Question

এই চ্যালেঞ্জে আপনাকে একই অক্ষরের সেট ব্যবহার করে 4 টি ভিন্ন কার্য সমাধান করতে হবে। আপনি অক্ষরগুলি পুনর্বিন্যাস করতে পারেন, তবে আপনি অক্ষরগুলি যুক্ত বা সরাতে পারবেন না।

বিজয়ী হ'ল জমা দেওয়া যা স্বল্পতম সংখ্যক অক্ষর ব্যবহার করে সমস্ত কার্য সমাধান করে। সমস্ত কাজ একই ভাষায় সমাধান করতে হবে।

মনে রাখবেন এটি স্বল্পতম অক্ষরের, অনন্য অক্ষরের ক্ষুদ্রতম সংখ্যার নয়।

কার্যক্রম 1:

Nপ্রতি তৃতীয় যৌগিক সংখ্যার প্রথম সংখ্যা আউটপুট করুন । নীচের কোডব্লকটি প্রথম সারিতে প্রথম 19 টি যৌগিক সংখ্যা এবং নীচের সারিতে প্রতিটি তৃতীয় সংমিশ্রণ সংখ্যা দেখায়।

4, 6, 8, 9, 10, 12, 14, 15, 16, 18, 20, 21, 22, 24, 25, 26, 27, 28, 30
4,       9,         14,         18,         22,         26,         30

তাহলে N=5আউটপুট হওয়া উচিত 4, 9, 14, 18, 22। আপনি সমর্থন করতে হবে 1<=N<=50।

সম্মিলিত সংখ্যাগুলি ইতিবাচক সংখ্যা যা মূল সংখ্যা বা 1 নয়।

এর জন্য ফলাফল N=50:

4, 9, 14, 18, 22, 26, 30, 34, 38, 42, 46, 50, 54, 57, 62, 65, 69, 74, 77, 81, 85, 88, 92, 95, 99, 104, 108, 112, 116, 119, 122, 125, 129, 133, 136, 141, 144, 147, 152, 155, 159, 162, 166, 170, 174, 177, 182, 185, 188, 192

কার্য 2:

একটি N-by-Nগুণ টেবিল আউটপুট । আপনার অবশ্যই সমর্থন করা উচিত1<=N<=20

উদাহরণ:

N = 4
1   2   3   4
2   4   6   8
3   6   9  12
4   8  12  16

আউটপুট ফর্ম্যাটটি isচ্ছিক, নিম্নলিখিতটি গ্রহণযোগ্য আউটপুট [[1,2,3,4],[2,4,6,8],[3,6,9,12],[4,8,12,16]]।

কার্য 3:

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

true/false, false/true, 1/0, 1/-1, a/bসব গ্রহণযোগ্য আউটপুট যতদিন এটা সামঞ্জস্যপূর্ণ হিসাবে আছে।

কাজ 4:

Nফলাফল হিসাবে ইনপুট এবং আউটপুট হিসাবে নিন 1^1+2^2+3^3+...N^N। আপনি সমর্থন করতে হবে 1<=N<=10।

10 টি বিভিন্ন ফলাফল:

1, 5, 32, 288, 3413, 50069, 873612, 17650828, 405071317, 10405071317

---

এটি কোড-গল্ফ , তাই প্রতিটি ভাষার সংক্ষিপ্ততম জমাটি জয়লাভ করে!

এই স্ট্যাক স্নিপেট আপনার সমাধানটি পরীক্ষা করতে সহায়তা করবে। এটি চারটি সমাধান অন্তর্ভুক্ত করার জন্য প্রয়োজনীয় ন্যূনতম সংখ্যার সেট পরিমাপ করে এবং অবশিষ্ট বাকী অক্ষরগুলি দেখায়।

function update() {
  var m = {};
  var a = [q1.value, q2.value, q3.value, q4.value];
  var o = [{}, {}, {}, {}]
  for (var i = 0; i < 4; i++) {
    for (var j = 0; j < a[i].length; j++) o[i][a[i][j]] = -~o[i][a[i][j]];
    for (var c in o[i]) if (!(o[i][c] < m[c])) m[c] = o[i][c];
  }
  var t = 0;
  for (var c in m) t += m[c];
  for (var i = 0; i < 4; i++) {
    t += "\n";
    for (var c in m) t += c.repeat(m[c] - ~~o[i][c]);
  }
  p.textContent = t;
}

<div oninput="update();">
  <textarea id="q1"></textarea>
  <textarea id="q2"></textarea>
  <textarea id="q3"></textarea>
  <textarea id="q4"></textarea>
</div>
<pre id="p"></pre>

Comments

বাইনারি: দুটি অক্ষর

— ক্রেডড্প

@ কর্ড্প্প হ্যাঁ, দুটি অনন্য চরিত্র ...

— স্টিভি গ্রিফিন

Answer 1

পাইথন, 88 87 বাইট

lambda n:[a for a in range(11*n)if any(a%b<1for b in range(2,a))][:3*n:3]#1,,,=====bd++
lambda n:[[a*b for b in range(1,n+1)]for a in range(1,n+1)]#,,::ybaaa(*i%n< =====2)d33f
f=lambda n,a=1,b=1:a<n and f(n,b,a+b)or n==a#2eerrrfo::((**iii11[[aannn+     ]]y))%33gg
f=lambda n,a=1:a<=n and a**a+f(n,a+1)#::ooeeiii]]      y))bbbgg,,rrrra((11[[nnnnf==2%33

চরিত্রগুলি ভাগ করে নেওয়ার ক্ষেত্রে বা তাদের গল্ফগুলিতে খুব বেশি প্রচেষ্টা করা হয়নি, এটি অবশ্যই পরাজিত হবে।

Comments

হবে range(11*n)সবসময় যথেষ্ট composites থাকে?

— ফ্লিপট্যাক

@ ফ্লিপট্যাক হ্যাঁ, 5*nযথেষ্ট।

— মার্টিন এন্ডার

Answer 2

জেলি , 19 18 17 টি অক্ষর

কার্যক্রম 1

Ḟþe*S
×5µḊḟÆRm3ḣ³

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

টাস্ক 2

5µḊḟÆRm3ḣ³Ḟe*S
×þ

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

কার্য 3

5µḊḟmḣþ*S
×3RÆḞ³e

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

টাস্ক 4

×5ḊḟÆm3ḣ³þe
Rµ*ḞS

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

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

জেলি প্রোগ্রামের প্রতিটি লাইন একটি পৃথক লিঙ্ক (ফাংশন) সংজ্ঞায়িত করে । শেষটি মূল লিঙ্ক এবং প্রোগ্রামটি সম্পাদন করা হলে স্বয়ংক্রিয়ভাবে বলা হয়। যদি না এই প্রধান লিঙ্কটি অন্যকে কোনওভাবে উল্লেখ করে তবে তাদের কোনও প্রভাব নেই। নোট করুন যে এমনকি কলমযুক্ত লিঙ্কগুলিতে পার্সার ত্রুটি থাকতে পারে না।

কার্যক্রম 1

×5µḊḟÆRm3ḣ³  Main link. Argument: n

×5           Yield 5n.
  µ          Begin a new chain, with argument 5n.
   Ḋ         Dequeue; yield [2, ..., 5n].
     ÆR      Prime range; yield all primes in [1, ..., 5n].
    ḟ        Filter; remove the elements to the right from the ones to the left.
       m3    Pick every third element.
         ḣ³  Keep the first n results.

টাস্ক 2

এটির তুচ্ছ: ×এটি হ'ল গুণযুক্ত পরমাণু এবং দ্রুত þ(টেবিল) হ'ল ×বাম এবং ডান যুক্তিতে প্রতিটি উপাদানের সংমিশ্রণে প্রযোজ্য । যদি আর্গুমেন্টগুলি পূর্ণসংখ্যা হয় (যা তারা এখানে রয়েছে) তবে এটি প্রথমে তাদের পরিসীমা তৈরি করে।

কার্য 3

×3RÆḞ³e  Main link. Argument: n

×3       Yield 3n.
  R      Range; yield [1, ..., 3n].
   ÆḞ    Fibonacci; yield [F(1), ... F(3n)].
     ³e  Test if n exists in the result.

টাস্ক 4

Rµ*ḞS  Main link. Argument: n

R      Range; yield [1, ..., n].
 µ     Begin a new chain with argument [1, ..., n].
   Ḟ   Floor; yield [1, ..., n].
  *    Yield [1**1, ..., n**n].
    S  Take the sum.

Comments

খুশি দেখতে ÆḞইতিমধ্যে দরকারী প্রমাণিত হয়!

— লিন

Answer 3

গণিত, 60 টি অক্ষর

টাস্ক 1: কম্পোজিটস

#/AFF^abcinoruy{};Select[Range[2,9#],!PrimeQ@#&][[;;3#;;3]]&

টাস্ক 2: বহুবৃত্তির সারণী

!29;F@FPQRS[];a^b;c[c[e]];eeegiilmnnotu;Array[3##&,{#,#}]/3&

কার্য 3: ফিবোনাচি

##&;239;A/PS[]^e[];lmrtuy;{,};!FreeQ[Fibonacci@Range[3#],#]&

কার্য 4: শক্তির যোগফল

!###&;23/39;A@F;F[P[Q[]]];Raabccegiilnnorrty;Sum[e^e,{e,#}]&

প্রতিটি জমা হ'ল প্রকাশের একটি সেট যা উপেক্ষা করা হয় এবং এর পরে একটি নামহীন ফাংশন দেওয়া হয় যা প্রদত্ত কার্যটি কার্যকর করে।

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

Comments

আমার একটি মন্তব্য আছে, তবে এটি নিজের কোড সম্পর্কে নয়: পি। (সুন্দর উত্তর, বিটিডাব্লু) আপনার সিজেএম স্ক্রিপ্টটি একটি সাধারণ ত্রুটিটিকে উপেক্ষা করে: আমি যদি প্রবেশ করি abএবং baস্ক্রিপ্ট হিসাবে, এটি আমাকে দেয় (**)abএবং তার (**)baপরিবর্তে abএবং ba।

— হাইপারনিউটারিনো 9:25

@AlexL। হ্যাঁ, এটি (**)অন্য যে কোনও প্রোগ্রামে ব্যবহার করা হয় সেগুলি নিজেই কিছু অক্ষর coverাকতে ব্যবহৃত হতে পারে এই বিষয়টিও বিবেচনা করে না ।

— মার্টিন ইন্ডার

Answer 4

এমএটিএল , 29 28 26 টি অক্ষর

কার্য 1 (প্রতিটি তৃতীয় সংমিশ্রণ নম্বর)

6*:tZp~)G:3*q)%G"$]vwm^sl+

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

কার্য 2 (গুণ টেবিল)

:l$*%6*tZp~)G:3q)G"]vwm^s+

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

কার্য 3 (ফিবোনাচি সনাক্তকারী)

l6Zp~G:"3q$t+]vGwm%):*)^s*

এই প্রদর্শন 1/ 0ফিবানচি / অ ফিবানচি জন্য যথাক্রমে।

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

কার্য 4 (শক্তির যোগফল)

:t^s%6*Zp~)G:3*q)G"$]vwml+

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

চেক

এই প্রোগ্রামটি চারটি স্ট্রিংকে ইনপুট দেয় এবং তাদের অনুসারে বাছাই করে প্রদর্শন করে, চাক্ষুষভাবে পরীক্ষা করতে তারা একই অক্ষর ব্যবহার করে।

ব্যাখ্যা

%মন্তব্য প্রতীক। তার ডানদিকে সবকিছু উপেক্ষা করা হয়।

কার্য 1 (প্রতিটি তৃতীয় সংমিশ্রণ নম্বর)

6*    % Input N. Multiply by 6
:     % Range [1 2 ... 6*N]. This is enough because every even number is composite,
      % so this contains at least 3*N composite numbers
t     % Duplicate
Zp    % Isprime
~     % Negate
)     % Use as index to select composite numbers, including 1, from [1 2 ... 6*N]
G:    % Push [1 2 ... N]
3*q   % Multiply by 3 and subtract 1: gives [2 5 ... 3*N-1]
)     % Pick those composite numbers. Implicitly display

কার্য 2 (গুণ টেবিল)

:     % Input N. Range [1 2 ... N]
l     % Push 1
$     % Specify that next function will take 1 input
*     % Product of array. With 1 input it produces all pair-wise products
      % Implicitly display

কার্য 3 (ফিবোনাচি সনাক্তকারী)

l     % Push 1
6     % Push 6
Zp    % Isprime. Gives false
~     % Negate. Gives true, or 1
G:    % Push [1 2 ... N], where N is the input
"     % For each
  3q  %   3, subtract 1
  $   %   Specify that next function will take 2 inputs
  t   %   Duplicate the top two elements of the stack
  +   %   Add
]     % End
v     % Vertically concatenate the entire stack. This produces a column vector
      % with a sufficient amount of Fibonacci numbers
G     % Push input N
w     % Swap
m     % Ismember. Gives true if input is in the vector of Fibonacci numbers
      % Implicitly display

কার্য 4 (শক্তির যোগফল)

:     % Implicitly input N. Push [1 2 ... N]
t     % Duplicate
^     % Power, element-wise
s     % Sum of array. Implicitly display

Comments

আমি যখন প্রথম চ্যালেঞ্জটির দিকে তাকিয়েছিলাম, তখন আমি ভেবেছিলাম Hey MATL would be perfect for this!আপনি এটি আমাকে পরাজিত করেছেন। +1 টি

— DJMcMayhem

@ ডিজেএমসিমেহেম দুঃখিত, আমি অনেক উত্তর দেওয়ার প্রবণতা রাখি। পরের বার আমাকে পিং করুন এবং আপনি যদি এটির উপর কাজ করছেন তবে আমি বিরত থাকব :-) যাই হোক, কেন এগিয়ে যাবেন না? হতে পারে আপনি এটি ছাড়িয়ে যেতে পারেন

— লুইস মেন্ডো

@ ডিজেএমসিহেম, আপনি লুইসকে ছাড়িয়ে না নিলেও দয়া করে একটি উত্তর পোস্ট করুন। আমি আশা করি আরও বেশি লোক ইতিমধ্যে ব্যবহৃত ভাষাগুলিতে উত্তর পোস্ট করে, এমনকি যদি তারা প্রথমটির তুলনায় আউটগল্ফ পরিচালনা করে না।

— স্টিভি গ্রিফিন

@ স্টিভিগ্রিফিন হাহা, ঠিক আছে। আমার কাছে এখনও বৈধ উত্তর নেই, তবে আমি যদি একটি উত্তর পাই (এবং এটি যথেষ্ট আলাদা) আমি পোস্ট করব।

— DJMcMayhem

Answer 5

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

{(4..*).grep(!*.is-prime)[0,3...^*>=$_*3]}#$$&+1==>X[]__oot{}

{[X*](1..$_,!0..$_).rotor($_)}#&***+-..334===>>[]^eegiimpps{}

{(1,&[+]...*>=$_)[*-!0]==$_}#$()**....334>X^_eegiimoopprrst{}

{[+]((1..$_)>>.&{$_**$_})}#!**,-....0334===X[]^eegiimoopprrst

---

দ্বিতীয় ((1,2,3,4),(2,4,6,8),(3,6,9,12),(4,8,12,16))দেওয়া হলে ফেরত দেয়4

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

অন্যথায় এগুলি সমস্ত প্রয়োজনীয় যা প্রয়োজন তা ছাড়িয়ে ইনপুটগুলির জন্য "তাত্ক্ষণিকভাবে" চালাবে।

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

Answer 6

জাভাস্ক্রিপ্ট (ES6), 101 100 95 93 91 বাইট

(n,r=[],a=(y,m)=>n?y%m?a(y,++m):a(y+1,2,y==m||n--%3||r.push(y)):r)=>a(4,2,n*=3)//>....p*A&&
n=>[...Array(n)].map((r,y,m)=>m.map((s,n)=>y*++n,y+=1))//22334(,,,,===ayy)??%%::||||--uh*&&
r=(n,y=1,a=2)=>n==y||n>y&&r(n,a,y+a)//2334((((,,,,r=[]ayymmmm))))>??%%++::||--.....ppush**A
r=y=>y&&y**y+r(y-1)//22334(((((nnnn,,,,,,,,r=====[]aaaaymmmm)))))>>??%%++::||||-.....ppushA

সম্পাদনা করুন: 0ফিবোনাচি নম্বর হিসাবে সমর্থন না করে 1 বাইট সংরক্ষণ করা হয়েছে । ভেরিয়েবলের নাম পরিবর্তন করে 5 বাইট প্লাস আরও 2 বাইট (@ আরনাউল্ডকে 1 ধন্যবাদ) সংরক্ষণ করা হয়েছে। একটি থেকে অন্যটিতে পরিবর্তন 2 বাইট সংরক্ষিত +1, ++এবং +=1।

Comments

cভেরিয়েবলের সমস্ত উপস্থিতি প্রতিস্থাপনের সাথে Aএকটি বাইট সংরক্ষণ করা উচিত।

— আর্নল্ড

(আমি সম্পর্কে সুপারিশ যে আপনার কাছে প্রতিস্থাপন করতে পারেন ছিল dসঙ্গে y, কিন্তু dবর্তমান সংস্করণে undefined হয়, তাই আপনি সম্ভবত যে প্রথম ফিক্স চান)

— Arnauld

যে ইশারা জন্য @Arnauld ধন্যবাদ, কিন্তু আমি পুনঃনামকরনের দ্বারা ফিক্স জিনিষ আপ প্রয়োজন এবং আরও বাইট সংরক্ষণ পরিচালিত aকরতে m।

— নীল

Answer 7

এমএটিএল , 30 টি অক্ষর

আমি যে চরিত্রের সেটটি দিয়েছিলাম সেটি হ'ল:

!%))*+001233::<=GGQZ\]^`pstvyy~

আমি অন্যান্য এমএটিএল উত্তরগুলি আউটগল্ফ করতে পারি না, তবে আমি এই সমাধানটি নিয়ে মজা পেয়েছি।

কার্যক্রম 1:

তৃতীয় সংমিশ্রণ সংখ্যা।

4t^:QtZp~)G3*:3\1=)%!`yy+<]vGs

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

কার্য 2:

গুণিতক সারণী. এমএটিএল যেভাবে কাজ করে তার কারণে অবশ্যই সবচেয়ে সহজ কাজ

:t!*%4QZp~)G3:3\1=)`yy+<]vGs^t

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

কার্য 3:

ফিবোনাচি পরীক্ষক। সত্যবাদী ইনপুটগুলির জন্য একটি ধনাত্মক পূর্ণসংখ্যা (1 বা 2) এবং মিথ্যা ইনপুটগুলির জন্য 0 মুদ্রণ করে।

1t`yy+tG<]vG=s%4:QZp~)3*:3\)!^

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

কাজ 4:

ক্ষমতার যোগফল

:t^s%1`yy+tG<]vG=4QZp~)3*:3\)!

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

আমি পরে আরও বিশদ বিবরণ পোস্ট করব, তবে আপাতত %আপনার মন্তব্য মন্তব্যটি লক্ষ্য করা উচিত , সুতরাং প্রোগ্রামগুলি সত্যই:

4t^:QtZp~)G3*:3\1=)
:t!*
1t`yy+tG<]vG=s
:t^s

Answer 8

পাওয়ারশেল , 95 94 বাইট

( টিমমিডি সাভিন 'আমার বেকন আবারও)

কার্যক্রম 1:

(""..999|?{'1'*$_-match'^(?=(..+)\1+$)..'})[(0..("$args"-1)|%{$_*3})]#|$$$$===ss%``iiex!!nnnq;

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

---

কার্য 2:

($s=1.."$args")|%{"`$s|%{$_*`$_}"|iex}#0113999((((......??''''*$$$--match^===++))))\[]i!!nnnq;

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

---

কার্য 3:

!!(($i="$args")..($s=1)|?{($n=($s+=$n)-$n)-eq$i})#0113999......||?{''''**__match^+\}[""%%]``x;

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

---

কাজ 4:

"$args"..1|%{$s+="$_*"*$_+1|iex};$s#013999(((((......|??{''''$$$--match^===)))))\}[%]``i!!nnnq

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

Comments

ওহ, "$args"পরিবর্তে পরিবর্তে $args[0]উজ্জ্বল। আমি এখানে থেকে এটি ব্যবহার করতে যাচ্ছি।

— অ্যাডমবর্কবার্ক

@ টিমিডি হ্যাঁ আমি এটি একটি প্যারামিটারের সাথে কোনও কিছুতে একক বাইট সাশ্রয়ের জন্য ব্যবহার করছি।

— ব্রিটিশবাদী

@ টিমমিড পয়েন্ট! আমি নিশ্চিত হয়ে ওঠার জন্য তাদের সকলকে আবার লিখতে হয়েছিলাম, আমি এটি আবার ঘুরে দেখতে এবং এটি প্রয়োগ করতে পারি। একবার আমি সমস্ত 4 সমাপ্ত করার পরে আমি অনুকূলিতকরণের ক্ষেত্রে একরকম ছাঁটাই করেছি।

— ব্রিটিশবাদী

ওয়েল আমি টিআইও লিঙ্কগুলি পুনরায় করা এবং এর মতোই চাইছিলাম তবে ফিন @ টিমিডি আমি অলস হওয়া বন্ধ করব এবং আপনার উদার পরামর্শটি ব্যবহার করব যা আমি যতটা কাজ করছি তা করার মতো নয়! (সম্পাদিত) :

— ব্রিটিশবাদী

আপনি অন্য একটি সামগ্রিক বাইট সংরক্ষণ করতে ;গণনা ম্যানিপুলেট করে টাস্ক 4 থেকে বাদ দিতে পারেন ("$args"..1|%{$s+="$_*"*$_+1|iex})-(-$s)।

— অ্যাডমবর্কবার্ক

Answer 9

হাস্কেল , 77 76 টি অক্ষর

m n=[[x|x<-[1..],2/=sum[1|0<-mod x<$>[1..x]]]!!y|y<-[1,4..3*n]]--2 n===y();^
s n=[(*y)<$>[1..n]|y<-[1..n]]--0112234mmm  ====[[[xxxx||<<--..]]],,/uod!!y;^
n x|x<2=1|1<3=sum(n<$>[x-1,x-2]);d y=[0|m<-[1..y],y==n m]--4[[[....]]]/o!!*^
o n=sum[x^x|x<-[1..n]]--01112234mm  n====[[[[x||<<<--....]]]],,/d$>!!yyy*();

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

--একটি লাইন মন্তব্য শুরু করে, তাই চারটি প্রোগ্রামই ফর্মের <program>--<unused chars>।

কার্যক্রম 1:

m n=[[x|x<-[1..],2/=sum[1|0<-mod x<$>[1..x]]]!!y|y<-[1,4..3*n]]

দীর্ঘতম প্রোগ্রাম। [x|x<-[1..],2/=sum[1|0<-mod x<$>[1..x]]]সংমিশ্রণ সংখ্যার প্লাস এবং একটি সূচনা 1যা 0-সূচকে সংশোধন করে একটি অসীম তালিকা উত্পাদন করে । ব্যবহার:

Prelude> m 5
[4,9,14,18,22]

কার্য 2:

s n=[(*y)<$>[1..n]|y<-[1..n]]

ব্যবহার:

Prelude> s 5
[[1,2,3,4,5],[2,4,6,8,10],[3,6,9,12,15],[4,8,12,16,20],[5,10,15,20,25]]

কার্য 3:

n x|x<2=1|1<3=sum(n<$>[x-1,x-2]);d y=[0|m<-[1..y],y==n m]

রিটার্নস [0]truthy এবং []falsy জন্য। ব্যবহার:

Prelude> d 5
[0]
Prelude> d 6
[]

কাজ 4:

o n=sum[x^x|x<-[1..n]]

ব্যবহার:

Prelude> o 5
3413

Answer 10

05 এ বি 1 ই , 21 বাইট

কার্যক্রম 1

3ÅFOL¦DâPÙï{3ôø¬¹£qåm

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

টাস্ক 2

LDâP¹ôq3m¦Ùï{3ø¬£ÅFåO

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

কার্য 3

3mÅF¹åqL¦DâPÙï{3ôø¬£O

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

টাস্ক 4

LDmOq3¦âPÙï{3ôø¬¹£ÅFå

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

ব্যাখ্যা

সমস্ত কাজের জন্য, qপ্রোগ্রামটি শেষ হয় তাই নিম্নলিখিত কোডটি কখনই কার্যকর হয় না।

কার্যক্রম 1

এটিই সবচেয়ে বড় বাইট-হগ। এখানে একটি ছোট উন্নতি অনেক বেশি যেতে পারে।

3ÅFO                 # sum the first 4 fibonacci numbers
    L¦               # range [2 ... above]
      Dâ             # cartesian product with itself
        P            # product
         Ù           # remove duplicates
          ï{         # sort
            3ô       # split in pieces of size 3
              ø      # transpose
               ¬     # get the first lits
                ¹£   # get the first input-nr elements of the list

টাস্ক 2

L       # range [1 ... input]
 D      # duplicate
  â     # cartesian product
   P    # product
    ¹ô  # split in pieces of input size

কার্য 3

3m      # input**3
  ÅF    # get a list of that many (+1) fibonacci numbers
    ¹å  # check if input is in that list

টাস্ক 4

L     # range [1 ... input]
 D    # duplicate
  m   # elementwise power of ranges
   O  # sum

Answer 11

রুবি, 83 82 80 78 টি অক্ষর

->m{'*+-=';[*0..m-1].map{|b|(4..516).select{|p|(2...p).any?{|n|p%n==0}}[3*b]}}
->n{'()%**+--......00123456==?[[]]clmnsty{||}';(b=1..n).map{|e|b.map{|p|e*p}}}
->m{'%+-......001236bclnnpt[[]]{{||||}}';(1..e=m*m).any?{|p|(p*p-5*e).abs==4}}
->n{'%*.......023456=?[]abbceelnsty{{||||}}';((m=0)..n).map{|p|m+=p**p}[-1]-1}

নোট: ফিবানচি সংখ্যার নিখুঁত বর্গক্ষেত্র পদ্ধতি উইকিপিডিয়া বর্ণিত ব্যবহার আবিষ্কারক: https://en.wikipedia.org/wiki/Fibonacci_number#Recognizing_Fibonacci_numbers

Comments

আপনার যদি জ্বলতে অক্ষর থাকে তবে স্ট্রিংয়ের পরিবর্তে কেন একটি মন্তব্য ব্যবহার করবেন না? এটি প্রতি '';বনাম আপনাকে 2 টি অক্ষর বাঁচায়#

— অ্যালেক্সিস অ্যান্ডারসেন

ধন্যবাদ, তবে আমার কাছে এটি প্রতারণার মতো মনে হচ্ছে।

— জিবি