Тож це мій перший виклик на цьому сайті.

Завдання полягає в тому, щоб взяти вхідне ціле число $n$ , яке буде позитивним, і роздрукувати у порядку зростання ( $1$ до $n$ , включаючи n ), вихід $i^{(n-i)}$ (де $i$ - поточне ціле число).

Приклад

Враховуючи вхід 5, програма надрукує:

1  
8  
9  
4  
1  

$1^4$ є 1 і$1+4=5$дорівнює 8 ідорівнює 9 і- це 4, а- це 1 і
$2^3$$2+3=5$
$3^2$$3+2=5$
$4^1$$4+1=5$
$5^0$$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

Ахей (езотоп) , 193 164 байти (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)

Спробуйте в Інтернеті!

Спасибі Луїсу Мендо , використовуючи внутрішню змінну, економиться 3 байти.

Желе , 4 байти

*ạ¥€

Спробуйте в Інтернеті!

Мова Вольфрама (Mathematica) , 24 20 18 байт

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

Спробуйте в Інтернеті!

-4 спасибі @lirtosiast.

MathGolf , 6 байт

rx\╒m#

Спробуйте в Інтернеті!

Пітон 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

Спробуйте в Інтернеті!

Рубін , 27 байт

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

Спробуйте в Інтернеті!

Сітківка , 35 байт

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

Спробуйте в Інтернеті! Пояснення:

.+
*

Перетворити вхід в одинаковий.

_

Збігайте кожну позицію. Потім встановлюється кілька змінних змін. $`стає зліва від матчу; $>`модифікує це ліворуч і збігається; $.>`модифікує це, щоб прийняти довжину, тобто поточний індекс. $'тим часом це право на відповідність, а $.'також довжина, тобто поточний показник.

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

Створіть рядок $.(плюс $.'повторення $.>`*плюс _. Наприклад, для індексу 2 на вихідному вході 5, $.'це 3 і $.>`дорівнює 2, тому отриманий рядок є $.(2*2*2*_. Це зручно вираз заміни сітківки, який обчислює 2³. Кожен рядок виводиться у свій власний рядок.

%~`^
.+¶

Для кожного рядка, сформованого попереднім етапом, приставте .+до нього рядок , перетворивши його на етап заміни, і оцініть цей етап, обчисливши тим самим вираз.

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]

Ява, 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 Jelly відповідь .

Спробуйте в Інтернеті.

Пояснення:

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

Спробуйте в Інтернеті!