พิจารณารูปสามเหลี่ยมที่เป็นNแถว TH (1 จัดทำดัชนี) เป็นอาร์เรย์จากครั้งแรกที่ไม่มีอำนาจจำนวนเต็มบวกของN นี่คือสองสามแถวแรก:

N | สามเหลี่ยม

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 การจัดทำดัชนี:

N -> เอาท์พุท

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

0 การจัดทำดัชนี:

N -> เอาท์พุท

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

โปรดทราบว่าช่องโหว่เหล่านี้เป็นสิ่งต้องห้ามโดยค่าเริ่มต้น นี่คือรหัสกอล์ฟดังนั้นการส่งที่ถูกต้องสั้นที่สุดในแต่ละภาษาชนะ!

Python 3 , 39 ไบต์

1 การจัดทำดัชนี

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

ลองออนไลน์!

Husk , 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

ภาษา Wolfram (Mathematica)ขนาด 32 ไบต์

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

ลองออนไลน์!

กำหนดช่วงกำลังของช่วงของช่วง ...

R , 40 ไบต์

-2 ไบต์ย้ายคำตอบของ Halvard Hummel

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

ลองออนไลน์!

R , (คำตอบดั้งเดิม) 42 ไบต์

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

ลองออนไลน์!

1 การจัดทำดัชนี

APL (Dyalog) , 15 13 10 ไบต์

บันทึก 3 ไบต์ด้วย @ Adám

⊢⊃∘∊⍳*⍳¨∘⍳

ลองออนไลน์!

อย่างไร?

⍳¨∘⍳ - สร้างช่วงสำหรับแต่ละหมายเลขในช่วงของอินพุต

⍳* - เพิ่มแต่ละหมายเลขในช่วงของการป้อนข้อมูลไปยังพลังที่สอดคล้องกัน

∊ - แบน

⊢⊃ - เลือกองค์ประกอบที่ n

เยลลี่ขนาด 7 ไบต์

*R$€Ẏ⁸ị

ลองออนไลน์!

-1 ขอบคุณที่นาย Xcoder

1 การจัดทำดัชนี

Haskell , 30 28 ไบต์

บันทึก 2 ไบต์ต้องขอบคุณ xnor

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

ลองออนไลน์!

0 การจัดทำดัชนี

MATL , 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

APL (Dyalog) , 14 12 ไบต์

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

ลองออนไลน์!

ใช้การจัดทำดัชนี 1 รายการ

บันทึก 2 ไบต์ด้วย↑,/ → ∊จากคำตอบของ Graham

โปรดทราบว่าในลิงก์ทดสอบรหัสนั้นจำเป็นต้องมีรหัสเพิ่มเติมf←แต่จะไม่นับตามกฎของเรา

Pyth , 8 ไบต์

@s^RSdSh

ลองที่นี่

-1 ขอบคุณที่สตีเว่นเอช

0 การจัดทำดัชนี

05AB1E , 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è

Perl 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)
}

Ruby , 34 ไบต์

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

ลองออนไลน์!

JavaScriptขนาด 30 ไบต์

-1 ไบต์ขอบคุณ Nahuel Fouilleul

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

ลองออนไลน์!

Python 2 , 57 ไบต์

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

ลองออนไลน์! (0 จัดทำดัชนี.)

ทางเลือกการจัดทำดัชนี 0- 74 ไบต์รุ่นยาว

เยลลี่ ,  15  12 ไบต์

_{อาจไม่เหมาะสมที่สุด}

-3 ขอบคุณErik the Outgolfer 's golfing

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

ลองออนไลน์!

J , 20 ไบต์

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

1 การจัดทำดัชนี

ลองออนไลน์!

APL + WIN, 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

SILOSขนาด 45 ไบต์

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

ลองออนไลน์!

Perl 5, 30 + 1 (-p) ไบต์

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

ลองออนไลน์

Clojure 51 ไบต์

0 การจัดทำดัชนีตัวอย่างเช่นการป้อนข้อมูลผลตอบแทน9256.0

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

ค 76, 62 ไบต์

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

Y; f (n) {y = (int) - 2 (5 + sqrt (1 + 8 * ~ -n) / 2.); n + y = * (3-y) / 2-1; ผลตอบแทน (int ) ธาร (y-1, n);}

ฉันใช้มันในรหัสนี้

ลองใช้กับ ideone

Pyt , 39 37 ไบต์

1 การจัดทำดัชนี

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

คำอธิบาย:

มันจะคำนวณแต่ละแถวสั้น ๆ หากหมายเลขที่ร้องขออยู่ในแถวนั้นให้ส่งคืน มิฉะนั้นไปที่แถวถัดไป