นี่คือความท้าทายครั้งแรกของฉันในเว็บไซต์นี้

ความท้าทายคือการที่จะใช้ในการป้อนข้อมูลจำนวนเต็ม$n$ซึ่งจะเป็นบวกและการพิมพ์ในลำดับ ( $1$เพื่อ$n$ , รวมทั้ง n ) การส่งออกของ$i^{(n-i)}$ (ที่$i$เป็นจำนวนเต็มปัจจุบัน)

ตัวอย่าง

รับอินพุต 5 โปรแกรมจะพิมพ์:

1  
8  
9  
4  
1  

$1^4$คือ 1 และ$1+4=5$
$2^3$คือ 8 และ$2+3=5$
$3^2$คือ 9 และ$3+2=5$
$4^1$คือ 4 และ$4+1=5$
$5^0$คือ 1 และ$5+0=5$

อินพุตและเอาต์พุต

ข้อมูลที่ป้อนจะอยู่ในรูปของจำนวนเต็มบวก เอาต์พุตจะเป็นรายการของตัวเลขคั่นด้วยเครื่องหมายจุลภาคหรือบรรทัดใหม่

นี่คือรหัส - กอล์ฟดังนั้นรหัสที่สั้นที่สุดจึงชนะ

APL (Dyalog Unicode) , 8 5 ไบต์

⍳*⊢-⍳

ลองออนไลน์!

ฟังก์ชันนำหน้าเงียบโดยไม่ระบุชื่อ การทดสอบ TIO สำหรับช่วง [1..10]

ขอบคุณ @lirtosiast เป็นเวลา 3 ไบต์

วิธี:

⍳*⊢-⍳ ⍝ Tacit function
    ⍳ ⍝ Range. ⍳n generates the vector [1..n].
  ⊢- ⍝ Subtracted from the argument. The vector is now [n-1,n-2,...,0]
⍳*    ⍝ Exponentiate using the range [1..n] as base. The result is the vector
      ⍝ [1^(n-1), 2^(n-2), 3^(n-3),...]

Haskell, 23 ไบต์

f i=[x^(i-x)|x<-[1..i]]

ลองออนไลน์!

รุ่นทางเลือกขนาด 23 ไบต์เช่นกัน:

f i=(^)<*>(i-)<$>[1..i]

Japt, 5 ไบต์

õ_p´U

ลองมัน

õ         :Range [1,input]
 _        :Map
  p       :  Raise to the power of
   ´U     :  Input decremented

Perl 6 , 19 ไบต์

{^$_+1 Z**[R,] ^$_}

ลองออนไลน์!

การบล็อกโค้ดแบบไม่ระบุชื่อที่ใช้ตัวเลขและส่งคืนรายการ Zip อธิบายถึงช่วง1 to inputและช่วงinput-1 to 0

Aheui (esotope) , 193 164 bytes (56 ตัวอักษร)

방빠싹받분샥퍼붇바파쟈뿌차샦히망맣여
타빠바푸투반또분뽀뿌서썪삯타삯받반타
석차샦져쌲볼어타토싻삭빠쏛ㅇ또섞썪뻐

ลองออนไลน์!

ลองใช้กับ AVIS ( ภาษาเกาหลี ); เพียงคัดลอกและวางรหัสด้านบนกดปุ่มเริ่มต้นใส่ตัวเลขดูว่ามันเคลื่อนไหวอย่างไร หากต้องการดูผลลัพธ์ให้กดไอคอน> _ทางด้านซ้าย

มันไม่ได้กอล์ฟมากนัก แต่ฉันก็ยิงได้

Pyth , 5 ไบต์

_m^-Q

ลองออนไลน์!

การเข้ารหัสที่เหมาะสมที่สุดนี้จะเป็น 4.106 ไบต์

_                reverse of the following list:
 m               map the following lambda d:
  ^                (N-d)**d
   -Qd             
      d
       Q         over [0,...,N-1]

J , 10 ไบต์

(>:^|.)@i.

ลองออนไลน์!

หากเราจำเป็นต้องแยกตัวเลขด้วยการขึ้นบรรทัดใหม่:

J , 13 ไบต์

,.@(>:^|.)@i.

ลองออนไลน์!

เยลลี่ 5 ไบต์

R*ḶU$

ลองออนไลน์!

R                [1,...,n]
 *               to the power of
  ḶU$            [0,...,n-1] reversed

PHP, 32 ไบต์

while($argn)echo++$i**--$argn,_;

ทำงานเป็นท่อที่มี-nRหรือลองออนไลน์

อ็อกเทฟ , 18 ไบต์

@(n)(t=1:n).^(n-t)

ลองออนไลน์!

ขอบคุณLuis Mendo การใช้ตัวแปรภายในช่วยประหยัดได้ 3 ไบต์

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

*ạ¥€

ลองออนไลน์!

ภาษา Wolfram (Mathematica) , 24 20 18 ไบต์

(x=Range@#)^(#-x)&

ลองออนไลน์!

-4 ขอบคุณ @lirtosiast

MathGolfขนาด 6 ไบต์

rx\╒m#

ลองออนไลน์!

Python 2 , 40 ไบต์

lambda n:[i**(n-i)for i in range(1,n+1)]   #Outputs a list

ลองออนไลน์!

Python 2 , 41 ไบต์

n,i=input(),0
exec"print(n-i)**i;i+=1;"*n   #Prints in reversed order

ลองออนไลน์!

Ruby , 27 ไบต์

->n{(1..n).map{|r|r**n-=1}}

ลองออนไลน์!

เรติน่า 35 ไบต์

.+
*
_
$$.($.'*$($.>`$*)_¶
%~`^
.+¶

ลองออนไลน์! คำอธิบาย:

.+
*

แปลงอินพุตเป็น unary

_

จับคู่แต่ละตำแหน่ง จากนั้นตั้งค่าตัวแปรแทนที่หลายรายการ $`กลายเป็นทางซ้ายของการแข่งขัน $>`แก้ไขสิ่งนี้ให้เป็นซ้ายและจับคู่ $.>`แก้ไขสิ่งนี้เพื่อรับความยาวเช่นดัชนีปัจจุบัน $'ในขณะเดียวกันก็เป็นสิทธิ์ของการแข่งขันดังนั้น$.'ความยาวคือเลขชี้กำลังปัจจุบัน

$$.($.'*$($.>`$*)_¶

สร้างสตริง$.(บวก$.'ซ้ำของบวก$.>`* _สำหรับตัวอย่างสำหรับดัชนีของ 2 ในการป้อนข้อมูลเดิมของ 5 แล้ว$.'คือ 3 และ$.>`2 $.(2*2*2*_เพื่อสตริงที่เกิดคือ สิ่งนี้สะดวกคือการแทนที่การแสดงออกของ Retina ที่คำนวณ 2 cal แต่ละสตริงจะถูกส่งออกในบรรทัดของตัวเอง

%~`^
.+¶

สำหรับแต่ละบรรทัดที่สร้างโดยสเตจก่อนหน้าให้นำหน้าบรรทัด.+นั้นเปลี่ยนเป็นสเตจที่แทนที่และประเมินสเตจนั้นดังนั้นการคำนวณนิพจน์

QBasic, 35 33 ไบต์

ขอบคุณ @Neil 2 ไบต์!

INPUT a
FOR b=1TO a
?b^(a-b)
NEXT

รุ่นที่ขยายเพิ่มขึ้นเล็กน้อยในREPL.ITเนื่องจากล่ามยังไม่ตรงตามข้อกำหนดทั้งหมด

เอาท์พุต

QBasic (qb.js)
Copyright (c) 2010 Steve Hanov

   5
1
8
9
4
1

F # (. NET Core) 42 ไบต์

let f x=Seq.map(fun y->pown y (x-y))[1..x]

ลองออนไลน์!

JavaScript (Node.js) , 33 32 ไบต์

n=>(g=i=>--n?++i**n+[,g(i)]:1)``

ลองออนไลน์!

-3 ไบต์ด้วยเครดิตถึง @Shaggy และ -1 ไบต์โดย @ l4m2!

JavaScript (Node.js)ขนาด 36 ไบต์

f=(n,i=1)=>n--?[i++**n,...f(n,i)]:[]

ลองออนไลน์!

JavaScript (Node.js)ขนาด 37 ไบต์

n=>[...Array(n)].map(x=>++i**--n,i=0)

ลองออนไลน์!

C # (Visual C # Interactive Compiler) , 46 ไบต์

x=>new int[x].Select((_,i)=>Math.Pow(i+1,--x))

ลองออนไลน์!

MATL , 5 ไบต์

:Gy-^

ลองออนไลน์!

คำอธิบาย

พิจารณาการป้อนข้อมูล5เป็นตัวอย่าง

:     % Implicit input. Range
      % STACK: [1 2 3 4 5]
G     % Push input again
      % STACK: [1 2 3 4 5], 5
y     % Duplicate from below
      % STACK: [1 2 3 4 5], 5, [1 2 3 4 5]
-     % Subtract, element-wise
      % STACK: [1 2 3 4 5], [4 3 2 1 0]
^     % Power, element-wise. Implicit display
      % STACK: [1 8 9 4 1]

Java, 59 ไบต์

for(int i=1;a+1>i;i++)System.out.println(Math.pow(i,a-i));

ทำความสะอาด , 37 ไบต์

import StdEnv
$n=[i^(n-i)\\i<-[1..n]]

ลองออนไลน์!

นิยาม$ :: Int -> [Int]การเป็นจำนวนเต็มและส่งคืนรายการผลลัพธ์

$ n                // function $ of n
 = [i ^ (n-i)      // i to the power of n minus i
    \\ i <- [1..n] // for each i in 1 to n
   ]

R , 34 ไบต์

x=1:scan();cat(x^rev(x-1),sep=',')

ลองออนไลน์!

05AB1E , 5 ไบต์

LD<Rm

ท่าเรือ@lirtosiast 's คำตอบวุ้น

ลองออนไลน์

คำอธิบาย:

L      # List in the range [1, (implicit) input integer]
       #  i.e. 5 → [1,2,3,4,5]
 D<    # Duplicate this list, and subtract 1 to make the range [0, input)
       #  i.e. [1,2,3,4,5] → [0,1,2,3,4]
   R   # Reverse it to make the range (input, 0]
       #  i.e. [0,1,2,3,4] → [4,3,2,1,0]
    m  # Take the power of the numbers in the lists (at the same indices)
       # (and output implicitly)
       #  i.e. [1,2,3,4,5] and [4,3,2,1,0] → [1,8,9,4,1]

ลัวะ , 43 41 ไบต์

-2 ไบต์ต้องขอบคุณ@Shaggy

s=io.read()for i=1,s do print(i^(s-i))end

ลองออนไลน์!

R, 22 ไบต์

n=scan();(1:n)^(n:1-1)

อธิบายตนเองได้อย่างยุติธรรม โปรดทราบว่า:ผู้ประกอบการมีความน่าเชื่อถือสูงกว่า-ผู้ประกอบการเพื่อให้n:1-1สั้นกว่า(n-1):0

หากเราได้รับอนุญาตให้เริ่มต้นที่ 0 เราสามารถสูญเสียสองไบต์โดยใช้การ(0:n)^(n:0)หลีกเลี่ยงความต้องการ -1

ถ่าน 9 ไบต์

Ｉ⮌ＥＮＸ⁻θιι

ลองออนไลน์! การเชื่อมโยงคือการใช้รหัสเวอร์ชันอย่างละเอียด คำอธิบาย:

   Ｎ        Input as a number
  Ｅ         Map over implicit range
       ι    Current value
     ⁻      Subtracted from
      θ     First input
    Ｘ       Raised to power
        ι   Current value
 ⮌          Reverse list
Ｉ           Cast to string
             Implicitly print on separate lines

C # (Visual C # Interactive Compiler) , 55 ไบต์

v=>Enumerable.Range(0,v--).Select(i=>Math.Pow(i+1,v--))

ลองออนไลน์!

Perl 5 -n , 21 ไบต์

say++$\**--$_ while$_

ลองออนไลน์!