To jest moje pierwsze wyzwanie na tej stronie.

Wyzwanie polega na przyjęciu wejściowej liczby całkowitej $n$ , która będzie dodatnia, i wydrukowaniu, w porządku rosnącym ( $1$ do , w tym n ), wyniku (gdzie jest bieżącą liczbą całkowitą). $n$i ( n - i ) i$i^{(n-i)}$$i$

Przykład

Biorąc pod uwagę wejście 5, program wydrukuje:

1  
8  
9  
4  
1  

$1^4$ to 1, a$1+4=5$
$2^3$ to 8, a$2+3=5$
$3^2$ to 9, a$3+2=5$
$4^1$ to 4 i$4+1=5$
$5^0$ to 1 i$5+0=5$

Wejście i wyjście

Dane wejściowe będą miały postać dodatniej liczby całkowitej. Wyjście będzie listą liczb, oddzielonych przecinkami lub nowymi wierszami.

To jest golf golfowy , więc wygrywa najkrótszy kod.

APL (Dyalog Unicode) , 8 5 bajtów

⍳*⊢-⍳

Wypróbuj online!

Anonimowa funkcja ukrytego przedrostka. Testy TIO dla zakresu [1..10].

Dzięki @lirtosiast za 3 bajty.

W jaki sposób:

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

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

Wypróbuj online!

Alternatywna wersja, także 23 bajty:

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

Japt, 5 bajtów

õ_p´U

Spróbuj

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

Perl 6 , 19 bajtów

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

Wypróbuj online!

Anonimowy blok kodu, który pobiera liczbę i zwraca listę. Zip wykłada zakres 1 to inputi zasięginput-1 to 0

Aheui (esotop) , 193 164 bajtów (56 znaków)

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

Wypróbuj online!

Wypróbuj na AVIS ( koreański ); po prostu skopiuj i wklej kod powyżej, naciśnij przycisk Start, wprowadź liczbę, zobacz, jak się porusza. Aby wyświetlić dane wyjściowe, naciśnij ikonę > _ po lewej stronie.

Nie jest dużo golfa, ale daję temu szansę.

Pyth , 5 bajtów

_m^-Q

Wypróbuj online!

Optymalnie zakodowane byłoby 4.106 bajtów.

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

J , 10 bajtów

(>:^|.)@i.

Wypróbuj online!

Jeśli naprawdę musimy oddzielić liczby nowym znakiem:

J , 13 bajtów

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

Wypróbuj online!

Galaretka , 5 bajtów

R*ḶU$

Wypróbuj online!

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

PHP, 32 bajty

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

Uruchom jako potok z -nRlub spróbuj online .

Oktawa , 18 bajtów

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

Wypróbuj online!

Dzięki Luis Mendo , użycie zmiennej wewnętrznej oszczędza 3 bajty.

Galaretka , 4 bajty

*ạ¥€

Wypróbuj online!

Wolfram Language (Mathematica) , 24 20 18 bajtów

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

Wypróbuj online!

-4 dzięki @lirtosiast.

MathGolf , 6 bajtów

rx\╒m#

Wypróbuj online!

Python 2 , 40 bajtów

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

Wypróbuj online!

Python 2 , 41 bajtów

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

Wypróbuj online!

Rubinowy , 27 bajtów

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

Wypróbuj online!

Siatkówka , 35 bajtów

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

Wypróbuj online! Wyjaśnienie:

.+
*

Przekształć dane wejściowe w jednoargumentowe.

_

Dopasuj każdą pozycję. To ustawia kilka zmiennych zastępczych. $`staje się lewą stroną meczu; $>`modyfikuje to, aby było lewą i pasowało; $.>`modyfikuje to, aby przyjąć długość, tj. bieżący indeks. $'tymczasem jest prawo do dopasowania, podobnie $.'jak długość, tj. bieżący wykładnik.

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

Utwórz ciąg $.(plus$.' powtórzenia $.>`*plus _. Na przykład dla indeksu 2 na oryginalnym wejściu 5 $.'wynosi 3, a $.>`2, więc wynikowy ciąg to $.(2*2*2*_. Jest to dogodnie wyrażenie zastępujące siatkówkę, które oblicza 2³. Każdy ciąg jest wyprowadzany w osobnym wierszu.

%~`^
.+¶

Dla każdej linii wygenerowanej przez poprzedni etap poprzedź linię .+, zamieniając ją w etap zastępowania, i oceń ten etap, obliczając w ten sposób wyrażenie.

QBasic, 35 33 bajtów

Dziękuję @Neil za 2 bajty!

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

Nieco rozszerzona wersja na REPL.IT, ponieważ interpreter nie jest w pełni zgodny ze specyfikacją.

Wynik

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

   5
1
8
9
4
1

F # (.NET Core) , 42 bajty

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

Wypróbuj online!

JavaScript (Node.js) , 33 32 bajty

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

Wypróbuj online!

-3 bajty z kredytami na @Shaggy i -1 bajt na @ l4m2!

JavaScript (Node.js) , 36 bajtów

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

Wypróbuj online!

JavaScript (Node.js) , 37 bajtów

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

Wypróbuj online!

C # (interaktywny kompilator Visual C #) , 46 bajtów

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

Wypróbuj online!

MATL , 5 bajtów

:Gy-^

Wypróbuj online!

Wyjaśnienie

Rozważ dane wejściowe 5jako przykład.

:     % 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 bajtów

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

Czysty , 37 bajtów

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

Wypróbuj online!

Definiuje $ :: Int -> [Int]przyjmowanie liczby całkowitej i zwracanie listy wyników.

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

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

Wypróbuj online!

05AB1E , 5 bajtów

LD<Rm

Port @lirtosiast „s Jelly odpowiedź .

Wypróbuj online.

Wyjaśnienie:

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 bajtów

-2 bajty dzięki @Shaggy

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

Wypróbuj online!

R, 22 bajty

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

Dość oczywiste; należy zauważyć, że :operator ma wyższą pozycję niż- operator, dlatego n:1-1jest krótszy niż(n-1):0

Jeśli wolno nam zacząć od zera, możemy stracić dwa bajty, (0:n)^(n:0)unikając potrzeby -1.

Węgiel , 9 bajtów

Ｉ⮌ＥＮＸ⁻θιι

Wypróbuj online! Link jest do pełnej wersji kodu. Wyjaśnienie:

   Ｎ        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 # (interaktywny kompilator Visual C #) , 55 bajtów

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

Wypróbuj online!

Perl 5 -n , 21 bajtów

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

Wypróbuj online!