C'est donc mon premier défi sur ce site.

Le défi est de prendre un entier d'entrée , qui sera positif, et d'imprimer, dans l'ordre croissant ( à , y compris n ), la sortie de (où est l'entier courant). $n$$1$$n$$i^{(n-i)}$$i$

Exemple

Étant donné l'entrée 5, le programme imprimera:

1  
8  
9  
4  
1  

$1^4$ est 1 et$1+4=5$
$2^3$ est 8 et$2+3=5$
$3^2$ est 9 et$3+2=5$
$4^1$ est 4 et$4+1=5$
$5^0$ est 1 et$5+0=5$

Entrée et sortie

L'entrée sera sous la forme d'un entier positif. La sortie sera une liste de nombres, délimitée par des virgules ou de nouvelles lignes.

C'est le code-golf , donc le code le plus court l'emporte.

APL (Dyalog Unicode) , 8 5 octets

⍳*⊢-⍳

Essayez-le en ligne!

Fonction tacite de préfixe anonyme. Tests TIO pour la plage [1..10].

Merci @lirtosiast pour 3 octets.

Comment:

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

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

Essayez-le en ligne!

Version alternative, également 23 octets:

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

Japt, 5 octets

õ_p´U

Essayez-le

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

Perl 6 , 19 octets

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

Essayez-le en ligne!

Bloc de code anonyme qui prend un nombre et renvoie une liste. Zip expose la gamme 1 to inputet la gammeinput-1 to 0

Aheui (ésotope) , 193 164 octets (56 caractères)

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

Essayez-le en ligne!

Essayez-le sur AVIS ( coréen ); copiez et collez le code ci-dessus, appuyez sur le bouton Démarrer, saisissez un nombre, voyez comment il se déplace. Pour voir la sortie, appuyez sur l' icône > _ sur le côté gauche.

Ce n'est pas beaucoup joué au golf, mais j'essaie.

Pyth , 5 octets

_m^-Q

Essayez-le en ligne!

Le codage optimal serait de 4,106 octets.

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

J , 10 octets

(>:^|.)@i.

Essayez-le en ligne!

Si nous avons vraiment besoin de séparer les numéros par une nouvelle ligne:

J , 13 octets

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

Essayez-le en ligne!

Gelée , 5 octets

R*ḶU$

Essayez-le en ligne!

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

PHP, 32 octets

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

Exécuter en tant que pipe avec -nRou l' essayer en ligne .

Octave , 18 octets

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

Essayez-le en ligne!

Merci Luis Mendo , l'utilisation d'une variable interne permet d'économiser 3 octets.

Gelée , 4 octets

*ạ¥€

Essayez-le en ligne!

Langue Wolfram (Mathematica) , 24 20 18 octets

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

Essayez-le en ligne!

-4 merci @lirtosiast.

MathGolf , 6 octets

rx\╒m#

Essayez-le en ligne!

Python 2 , 40 octets

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

Essayez-le en ligne!

Python 2 , 41 octets

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

Essayez-le en ligne!

Rubis , 27 octets

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

Essayez-le en ligne!

Rétine , 35 octets

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

Essayez-le en ligne! Explication:

.+
*

Convertissez l'entrée en unaire.

_

Faites correspondre chaque position. Cela définit ensuite plusieurs variables de remplacement. $`devient la gauche du match; $>`modifie ceci pour être la gauche et correspondre; $.>`modifie cela pour prendre la longueur, c'est-à-dire l'indice actuel. $'en attendant, c'est le droit du match, tout $.'comme la longueur, c'est-à-dire l'exposant actuel.

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

Créez une chaîne $.(plus $.'répétitions de $.>`*plus _. Par exemple, pour un index de 2 dans une entrée d'origine de 5, $.'est 3 et $.>`vaut 2, de sorte que la chaîne résultante est $.(2*2*2*_. C'est commodément une expression de remplacement de la rétine qui calcule 2³. Chaque chaîne est sortie sur sa propre ligne.

%~`^
.+¶

Pour chaque ligne générée par l'étape précédente, préfixez-lui une ligne .+, en la transformant en une étape de remplacement, et évaluez cette étape, calculant ainsi l'expression.

QBasic, 35 33 octets

Merci @Neil pour 2 octets!

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

Version légèrement étendue sur REPL.IT car l'interpréteur n'est pas entièrement à jour.

Production

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

   5
1
8
9
4
1

F # (.NET Core) , 42 octets

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

Essayez-le en ligne!

JavaScript (Node.js) , 33 32 octets

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

Essayez-le en ligne!

-3 octets avec des crédits à @Shaggy, et -1 octet par @ l4m2!

JavaScript (Node.js) , 36 octets

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

Essayez-le en ligne!

JavaScript (Node.js) , 37 octets

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

Essayez-le en ligne!

C # (Visual C # Interactive Compiler) , 46 octets

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

Essayez-le en ligne!

MATL , 5 octets

:Gy-^

Essayez-le en ligne!

Explication

Considérez la saisie 5comme exemple.

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

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

Nettoyer , 37 octets

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

Essayez-le en ligne!

Définit la $ :: Int -> [Int]prise d'un entier et le renvoi de la liste des résultats.

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

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

Essayez-le en ligne!

05AB1E , 5 octets

LD<Rm

Réponse de Jelly du port de @lirtosiast .

Essayez-le en ligne.

Explication:

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 octets

-2 octets grâce à @Shaggy

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

Essayez-le en ligne!

R, 22 octets

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

Assez explicite; notez que l' :opérateur a une priorité plus élevée que l' -opérateur, ce qui n:1-1est plus court que(n-1):0

Si nous sommes autorisés à commencer à 0, nous pouvons perdre deux octets en (0:n)^(n:0)évitant la nécessité d'un -1.

Fusain , 9 octets

Ｉ⮌ＥＮＸ⁻θιι

Essayez-le en ligne! Le lien est vers la version détaillée du code. Explication:

   Ｎ        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 octets

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

Essayez-le en ligne!

Perl 5 -n , 21 octets

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

Essayez-le en ligne!