Vì vậy, đây là thử thách đầu tiên của tôi trên trang web này.

Thách thức là lấy một số nguyên đầu vào , sẽ là số dương và in theo thứ tự tăng dần ( đến n , bao gồm n ), đầu ra của i ^ {(ni)} (trong đó i là số nguyên hiện tại). $n$$1$$n$$i^{(n-i)}$$i$

Thí dụ

Cho đầu vào 5, chương trình sẽ in:

1  
8  
9  
4  
1  

$1^4$ là 1 và$1+4=5$
$2^3$ là 8 và$2+3=5$
$3^2$ là 9 và$3+2=5$
$4^1$ là 4 và$4+1=5$
$5^0$ là 1 và$5+0=5$

Đầu vào và đầu ra

Đầu vào sẽ ở dạng số nguyên dương. Đầu ra sẽ là một danh sách các số, được phân cách bằng dấu phẩy hoặc dòng mới.

Đây là mã golf , vì vậy mã ngắn nhất sẽ thắng.

APL (Dyalog Unicode) , 8 5 byte

⍳*⊢-⍳

Hãy thử trực tuyến!

Chức năng ẩn danh tiền tố ẩn danh. Các thử nghiệm TIO cho phạm vi [1..10].

Cảm ơn @lirtosiast cho 3 byte.

Làm sao:

⍳*⊢-⍳ ⍝ 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 byte

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

Hãy thử trực tuyến!

Phiên bản thay thế, cũng 23 byte:

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

Japt, 5 byte

õ_p´U

Thử nó

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

Perl 6 , 19 byte

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

Hãy thử trực tuyến!

Khối mã ẩn danh lấy một số và trả về một danh sách. Zip lũy thừa phạm vi 1 to inputvà phạm viinput-1 to 0

Aheui (esotope) , 193 164 byte (56 ký tự)

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

Hãy thử trực tuyến!

Hãy thử nó trên AVIS (tiếng Hàn ); chỉ cần sao chép và dán mã ở trên, nhấn nút bắt đầu, nhập số, xem cách nó di chuyển. Để xem đầu ra, nhấn biểu tượng > _ ở bên trái.

Nó không được đánh gôn nhiều, nhưng tôi cho nó một cú.

Bình thường , 5 byte

_m^-Q

Hãy thử trực tuyến!

Tối ưu hóa mã hóa này sẽ là 4.106 byte.

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

J , 10 byte

(>:^|.)@i.

Hãy thử trực tuyến!

Nếu chúng ta thực sự cần tách các số theo một dòng mới:

J , 13 byte

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

Hãy thử trực tuyến!

Thạch , 5 byte

R*ḶU$

Hãy thử trực tuyến!

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

PHP, 32 byte

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

Chạy như ống với -nRhoặc thử trực tuyến .

Octave , 18 byte

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

Hãy thử trực tuyến!

Cảm ơn Luis Mendo , sử dụng biến nội bộ tiết kiệm 3 byte.

Thạch , 4 byte

*ạ¥€

Hãy thử trực tuyến!

Ngôn ngữ Wolfram (Mathicala) , 24 20 18 byte

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

Hãy thử trực tuyến!

-4 cảm ơn @lirtosiast.

MathGolf , 6 byte

rx\╒m#

Hãy thử trực tuyến!

Python 2 , 40 byte

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

Hãy thử trực tuyến!

Python 2 , 41 byte

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

Hãy thử trực tuyến!

Ruby , 27 byte

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

Hãy thử trực tuyến!

Võng mạc , 35 byte

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

Hãy thử trực tuyến! Giải trình:

.+
*

Chuyển đổi đầu vào thành unary.

_

Phù hợp với từng vị trí. Điều này sau đó đặt một số biến thay thế. $`trở thành bên trái của trận đấu; $>`sửa đổi điều này là bên trái và phù hợp; $.>`sửa đổi điều này để lấy chiều dài, tức là chỉ số hiện tại. $'Trong khi đó là quyền của trận đấu, $.'độ dài tức là số mũ hiện tại.

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

Tạo một chuỗi $.(cộng với $.'sự lặp lại của $.>`*cộng _. Ví dụ, đối với chỉ số là 2 trong đầu vào ban đầu là 5, $.'là 3 và $.>`là 2 nên chuỗi kết quả là $.(2*2*2*_. Điều này thuận tiện là một biểu thức thay thế Retina có kích thước 2. Mỗi chuỗi là đầu ra trên dòng riêng của nó.

%~`^
.+¶

Đối với mỗi dòng được tạo bởi giai đoạn trước, hãy thêm tiền tố vào một dòng .+, biến nó thành giai đoạn thay thế và đánh giá giai đoạn đó, từ đó tính toán biểu thức.

QBasic, 35 33 byte

Cảm ơn bạn @Neil vì 2 byte!

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

Phiên bản được mở rộng một chút trên REPL.IT vì trình thông dịch không hoàn toàn cập nhật.

Đầu ra

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

   5
1
8
9
4
1

F # (.NET Core) , 42 byte

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

Hãy thử trực tuyến!

JavaScript (Node.js) , 33 32 byte

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

Hãy thử trực tuyến!

-3 byte với các khoản tín dụng cho @Shaggy và -1 byte bằng @ l4m2!

JavaScript (Node.js) , 36 byte

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

Hãy thử trực tuyến!

JavaScript (Node.js) , 37 byte

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

Hãy thử trực tuyến!

C # (Trình biên dịch tương tác Visual C #) , 46 byte

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

Hãy thử trực tuyến!

MATL , 5 byte

:Gy-^

Hãy thử trực tuyến!

Giải trình

Hãy xem xét đầu vào 5là một ví dụ.

:     % 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 byte

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

Sạch sẽ , 37 byte

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

Hãy thử trực tuyến!

Xác định $ :: Int -> [Int]lấy một số nguyên và trả về danh sách kết quả.

$ 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 byte

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

Hãy thử trực tuyến!

05AB1E , 5 byte

LD<Rm

Cổng của câu trả lời Jelly của @lirtosiast .

Hãy thử trực tuyến.

Giải trình:

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]

Lua , 43 41 byte

-2 byte nhờ @Shaggy

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

Hãy thử trực tuyến!

R, 22 byte

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

Khá tự giải thích; lưu ý rằng :toán tử có độ ưu tiên cao hơn -toán tử nên n:1-1ngắn hơn(n-1):0

Nếu chúng ta được phép bắt đầu từ 0, thì chúng ta có thể mất hai byte bằng cách (0:n)^(n:0)tránh sử dụng -1.

Than , 9 byte

Ｉ⮌ＥＮＸ⁻θιι

Hãy thử trực tuyến! Liên kết là phiên bản dài dòng của mã. Giải trình:

   Ｎ        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 # (Trình biên dịch tương tác Visual C #) , 55 byte

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

Hãy thử trực tuyến!

Perl 5 -n , 21 byte

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

Hãy thử trực tuyến!