পরিসীমা-ঘন ঘন পূর্ণসংখ্যার ক্রম

Question

একটি ত্রিভুজ যেখানে বিবেচনা এন ম সারি (1-সূচীবদ্ধ) প্রথম অ্যারে এন ইতিবাচক পূর্ণসংখ্যা ক্ষমতা এন । এখানে প্রথম কয়েকটি সারি রয়েছে:

এন | ত্রিভুজ

1 | 1
2 | 2 4
3 | 3 9 27
4 | 4 16 64 256
5 | 5 25 125 625 3125
...

এখন যদি আমরা সেই শক্তিগুলিকে একক অনুক্রমের সাথে যুক্ত করি তবে আমরা OEIS A075363 পাই :

1, 2, 4, 3, 9, 27, 4, 16, 64, 256, 5, 25, 125, 625, 3125, 6, 36, 216, 1296, 7776, 46656 ...

---

একটি পূর্ণসংখ্যা N দেওয়া , আপনার কাজ এই ক্রমের N ম পদটি ফিরিয়ে দেওয়া । আপনি 0 বা 1-ইনডেক্সিং চয়ন করতে পারেন।

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

1-ইন্ডেক্স:

এন -> আউটপুট

1 -> 1
2 -> 2
3 -> 4
5 -> 9
10 -> 256
12 -> 25
15 -> 3125

0-ইন্ডেক্স:

এন -> আউটপুট

0 -> 1
1 -> 2
2 -> 4
4 -> 9
9 -> 256
11 -> 25
14 -> 3125

নোট করুন যে এই ফাঁকগুলি ডিফল্টরূপে নিষিদ্ধ করা হয়েছে। এটি কোড-গল্ফ , এইভাবে প্রতিটি ভাষায় স্বল্পতম বৈধ জমাটি জেতে!

Comments

আমি মনে করি পরীক্ষার ক্ষেত্রে কিছু ত্রুটি রয়েছে: 1-ইনডেক্সড 10 এ 256 হওয়া উচিত; 0-ইনডেক্সড 9 এ 256 হওয়া উচিত

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

আমরা কি পিছনে স্থান পেতে পারি?

— স্টান স্ট্রাম

পুনঃটুইট

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

Answer 1

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

1-ইন্ডেক্স

f=lambda x,n=1:n**x*(x<=n)or f(x-n,n+1)

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

Answer 2

কাস্তে , 7 বাইট

!ṁṠM^ḣN

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

1-ইন্ডেক্স

ব্যাখ্যা:

      N   Get the list of all natural numbers
 ṁ        Map over each n in that list and then concatenate
  Ṡ  ḣ      Create the range [1,n] then ...
   M^       raise n to the power of each
!         Index into that sequence

Answer 3

ওল্ফ্রাম ভাষা (গণিত) , 32 বাইট

r=Range;Flatten[r@#^r@r@#][[#]]&

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

রেঞ্জের ব্যাপ্তির পাওয়ারের ব্যাপ্তি ...

Comments

Range@Range@3আয় {{1}, {1, 2}, {1, 2, 3}}! অভি, গণিতের তালিকা-থ্রেডিং পাগল।

— সংখ্যামানিয়াক

Answer 4

আর , 40 বাইট

-২ বাইটস হালভার্ড হুমেলের উত্তর পোর্টিং করে

function(N){while(N>T){N=N-T;T=T+1};T^N}

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

আর , (মূল উত্তর) 42 বাইট

function(N)(rep(1:N,1:N)^sequence(1:N))[N]

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

1-ইন্ডেক্স।

Answer 5

এপিএল (ডায়ালগ) , 15 13 10 বাইট

3 অ্যাডম ধন্যবাদ জানায় 3 বাইট

⊢⊃∘∊⍳*⍳¨∘⍳

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

কিভাবে?

⍳¨∘⍳ - ইনপুট পরিসীমা প্রতিটি সংখ্যার জন্য একটি পরিসীমা তৈরি করুন

⍳* - প্রতিটি পাওয়ারগুলিকে সংশ্লিষ্ট পাওয়ারগুলিতে ইনপুট পরিসীমাতে বাড়ান

∊ - চ্যাপ্টা

⊢⊃ - নবম উপাদান বাছাই

Comments

অনলাইনে এটি চেষ্টা করে কোডটি 17 বাইট বলে মনে হচ্ছে এবং এটি কোনও স্কেলারের পূর্ণসংখ্যার যুক্তি স্বীকার করে না বা একক পূর্ণসংখ্যার আউটপুট উত্পাদন করে না

— গ্রাহাম

@ গ্রাহাম অনলাইন, কোডটি একটি ভেরিয়েবলের জন্য বরাদ্দ করা হয়েছে f(এভাবে f←আরও 2 বাইট রয়েছে, যা এখানে গণনা করা হয় না) এবং এখানে একটি পরীক্ষার জোতা রয়েছে যা ফলাফলগুলি থেকে প্রাপ্ত 1করে 10।

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

অবশ্যই আপনাকে অবশ্যই এই জাতীয় যে কোনও কার্যাদি এবং প্রশ্ন অনুসারে ইনপুটটি গ্রহণ করতে হবে এবং স্পেক অনুযায়ী আউটপুট সহ সমস্ত বাইট গণনা করতে হবে। আমার এপিএল উত্তর স্ক্রিন ইনপুট জন্য অনুরোধ জানায়।

— গ্রাহাম

@ গ্রাহাম এটি একটি ডায়ালগ এপিএল ডিএফএনএস। এটি কোনও ইনপুটটিতে অ্যাসাইনমেন্ট প্রয়োগ করার প্রয়োজন হয় না, টিআইও আউটলেটটি কেবল আরামদায়ক দেখার জন্য

— ইউরিয়েল

সেই ভিত্তিতে আমি ধরে নিতে পারি যে আমি এপিএল ওয়ান লাইনার চালানোর আগে আমার কর্মক্ষেত্রের মধ্যে এন নির্ধারণ করতে পারি এবং এর মাধ্যমে 7 বাইট সংরক্ষণ করি, আমি নিশ্চিত নই যে আমাদের সহযোদ্ধারা এটি গ্রহণ করবে।

— গ্রাহাম

Answer 6

জেলি , 7 বাইট

*R$€Ẏ⁸ị

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

-১ মিঃ এক্সকোডারকে ধন্যবাদ ।

1-ইন্ডেক্স।

Comments

দুর্দান্ত এখানে।

— জোনাথন অ্যালান

এর সাথে অভিনব বাক্য গঠন থেকে মুক্তি পাওয়ার জন্য ", আমার নিজস্ব সমাধানটি 7 বাইট:*R$€F⁸ị

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

@ মিঃ এক্সকোডার ধন্যবাদ, যদিও আমি ইতিমধ্যে অপসারণ করেছি ", কিন্তু এখনও। ইতিহাস অধ্যয়ন করার জন্য আপনি এটি পান: /

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

Answer 7

হাস্কেল , 30 28 বাইট

Xnor ধন্যবাদ 2 বাইট সংরক্ষণ করা।

([n^m|n<-[1..],m<-[1..n]]!!)

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

0-ইন্ডেক্স

Comments

তালিকাটি কমপটি ব্যবহার করা আসলে এটি খাটো [n^i|n<-[1..],i<-[1..n]]।

— xnor

ওহ, আমি এটি >>=ফর্মের সাথে তুলনা

— করছিলাম

Answer 8

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

:t!^RXzG)

সূচীকরণ 1-ভিত্তিক। এটি অনলাইন চেষ্টা করুন! বা সমস্ত পরীক্ষার কেস যাচাই করুন ।

ব্যাখ্যা

5উদাহরণ হিসাবে ইনপুট বিবেচনা করুন ।

:     % Implcit input n. Push range [1 2 ... n]
      % STACK: [1 2 3 4 5]
t!^   % Matrix of all pair-wise powers
      % STACK: [1    2    3    4    5;
                1    4    9   16   25;
                1    8   27   64  125;
                1   16   81  256  625;
                1   32  243 1024 3125]
R     % Upper triangular matrix
      % STACK: [1    2    3    4    5;
                0    4    9   16   25;
                0    0   27   64  125;
                0    0    0  256  625;
                0    0    0    0 3125]
Xz    % Nonzeros. Reads values in column-major order
      % STACK: [1; 2; 4; 3; 9; ...; 625; 3125]
G)    % Get n-th entry (1-based). Implcit display
      % STACK: 9

Answer 9

এপিএল (ডায়ালগ) , 14 12 বাইট

{⍵⌷∊*∘⍳⍨¨⍳⍵}

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

1-ইনডেক্সিং ব্যবহার করে

গ্রাহামের উত্তর↑,/ → ∊ থেকে নেওয়া, 2 বাইট সংরক্ষণ করা হয়েছে

নোট করুন যে পরীক্ষার লিঙ্কে, কোডটির অতিরিক্ত প্রয়োজন f←, তবে এটি আমাদের বিধি অনুসারে গণনা করা হয় না।

Comments

খুব চালাক ব্যবহার ∘সঙ্গে ⍨।

— অ্যাডম

@ অ্যাডম ধন্যবাদ :-)

— এইচপিউইজ

{⍵⌷∊*∘⍳⍨¨⍳⍵}→ ⊢⌷∘∊((*∘⍳)⍨¨⍳)→ ⊢⌷∘∊(⍳(*∘⍳)¨⍳)→⊢⌷∘∊⍳*∘⍳¨⍳

— অ্যাডম

আমি পোস্ট করব ... যদি আমার কোনও ধারণা থাকে যে এটি কীভাবে কাজ করে

— H.PWiz

⊢⍵ডিএফএন-র কাছে যা কিছু আছে তা হ'ল ∘মধ্যে ⌷এবং ∊প্রয়োজন হয় কারণ ∊monadically বলা হয়, তাই এটা enlisted সূচক । এবং আমরা পরিবর্তন f⍨⍳মধ্যে ⍳ f ⍳এড়াতে আহ্বান চ ( *∘⍳¨) monadically (যখনই ⍨এবং ¨সন্নিহিত হওয়ায়, তাদের অবস্থান অদলবদল হতে পারে)।

— অ্যাডাম

Answer 10

Pyth , 8 বাইট

@s^RSdSh

এখানে চেষ্টা করুন।

-1 ধন্যবাদ স্টিভেন এইচ । ।

0-ইন্ডেক্স।

Comments

@s^RSdShগল্ফ একটি বাইট বন্ধ।

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

Answer 11

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

ƒNDLm`}I@

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

ব্যাখ্যা

1-ইন্ডেক্স।

ƒ           # for N in range [0 ... input]
 N          # push N
  DL        # push range [1 ... N]
    m       # raise N to the power of each in [1 ... N]
     `      # flatten to stack
      }     # end loop
       I@   # get the element at index (input)

লুপের পরিবর্তে তালিকার উপরে বিকল্প সমাধান

ÝεDLm}˜sè

Answer 12

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

{({|($++X**1..$++)}...*)[$_]}

এটা পরীক্ষা করো

সম্প্রসারিত:

{  # bare block lambda with implicit parameter ｢$_｣

  (  # generate the sequence

    {  # code block used to generate each value in the sequence

      |(         # slip the values into the outer sequence

        $++      # post-incremented anonymous state value
        X**      # cross using &infix:«**»
        1 .. $++ # from 1 to post-incremented anonymous state value

      )
    }

    ...          # keep generating values until

    *            # never stop

  )[ $_ ]        # index into the sequence (0-based)
}

Answer 13

রুবি , 34 বাইট

->n{w=0;n-=w+=1until n<0;w**=w-~n}

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

Answer 14

জাভাস্ক্রিপ্ট , 30 বাইট

-1 বাইট নাহুয়েল ফুইলুলকে ধন্যবাদ

f=(x,n=1)=>x>n?f(x-n,n+1):n**x

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

Comments

-১ বাইট f=(x,n=1)=>x>n?f(x-n,n+1):n**x

— টেস্টটি উল্টো করে

@ নাহুয়েলফৌইল অবশ্যই, আপনাকে ধন্যবাদ!

— ফ্লিপট্যাক

Answer 15

পাইথন 2 , 57 বাইট

lambda N:[n**-~e for n in range(N+2)for e in range(n)][N]

এটি অনলাইন চেষ্টা করুন! (0-ইন্ডেক্স।)

0-সূচকযুক্ত বিকল্প 74 বাইট দীর্ঘ সংস্করণ ।

Answer 16

জেলি ,  15  12 বাইট

_{সম্ভবত অনুকূল নয়।}

-৩ এরিক দ্য আউটগোল্ফার গল্ফকে ধন্যবাদ ।

=RṁR€T€µT*FḢ

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

Comments

বাহ, আপনাকে আজ সত্যিই ক্লান্ত হতে হবে।

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

আমি আসলেই অসুস্থ!

— জোনাথন অ্যালান

দুঃখিত! আপনি শীঘ্রই আরও ভাল আশা করি!

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

এছাড়াও, এখানে প্রায় 3 বাইট বন্ধ আমি এই তুচ্ছভাবে খুঁজে বের করতে পরিচালিত।

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

Answer 17

জে , 20 বাইট

{1,[:;[:(^&.><\)1+i.

1-ইন্ডেক্স

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

Answer 18

এপিএল + উইন, 23 বাইট

(∊n↑¨⊂[2]n∘.*n←⍳n)[n←⎕]

ব্যাখ্যা:

[n←⎕] prompts for screen input and selects the nth element of the concatenated vector
see below

n←⍳n creates a vector of 1 to n

∘.* outer product with exponentiation as the operator

⊂[2] enclose each row of the resulting array as an element of a nested array

∊n↑¨ take 1 to n elements from the 1 to nth row of the matrix and concatenate into a vector

Comments

এটি কোন এপিএল উপভাষায় কাজ করে?

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

এটি APL + WIN এ লেখা আছে। আমি ভবিষ্যতের যে কোনও

— গ্রাহাম

আমি ∊আমার উত্তর প্রতিস্থাপন করতে আপনার উত্তর থেকে নেওয়া ↑,/। আমি এই ফাংশন সম্পর্কে জানতাম না। ধন্যবাদ

— এইচ.পি.উইজ

@ এরিকথ আউটগলফার আমি মনে করি এটি যে কোনও আধুনিক এপিএলে কাজ করবে।

— অ্যাডাম

Answer 19

সাইলো , 45 বাইট

readIO
lblb
a+1
i-a
if i b
i+a
a^i
printInt a

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

Answer 20

পার্ল 5, 30 + 1 (-পি) বাইট

$_-=$.++until$.>$_;$_=$.**++$_

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

Answer 21

ক্লোজার 51 বাইট

0-ইনডেক্সড, উদাহরণস্বরূপ ইনপুট 9রিটার্ন 256.0।

#(nth(for[i(range)j(range i)](Math/pow i(inc j)))%)

Answer 22

সি 76, 62 বাইট

y;f(n){for(y=0;n>y*++y/2;);return(int)pow(y-1,n+y*(3-y)/2-1);}

Y; চ (ঢ) {Y = (int- এ) - +2 (5 + + বর্গমূল (1 + 8 থেকে * ~ -n) / 2।);, n + = Y * (3-Y) / 2-1; প্রত্যাবর্তন (int- ) Pow (Y-1, ঢ);}

আমি এই কোডের উপর ভিত্তি করে

আদর্শের উপর চেষ্টা করুন

Answer 23

পাইট , 39 37 বাইট

1-ইন্ডেক্স

←000`ŕŕ⁺ĐĐř^Đ04Ș↔+⇹Ł-Đ↔3Ș0>łŕ0↔⇹+⁻⦋↔ŕ

ব্যাখ্যা:

সংক্ষেপে, এটি প্রতিটি সারি গণনা করে। যদি অনুরোধ করা নম্বরটি এই সারিতে থাকে তবে এটি ফিরিয়ে দিন; অন্যথায়, পরবর্তী সারিতে যান।