Bu benim bu sitedeki ilk görevim.

Zorluk bir giriş tamsayı almaktır (artan sırayla, pozitif olur ve baskı için , n de dahil olmak üzere ), çıkış (burada mevcut tamsayıdır). $n$$1$$n$$i^{(n-i)}$$i$

Misal

Giriş 5 verildiğinde program yazdırır:

1  
8  
9  
4  
1  

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

Giriş ve çıkış

Girdi pozitif bir tamsayı biçiminde olacaktır. Çıktı, virgül veya yeni satırlarla ayrılmış bir sayı listesi olacaktır.

Bu kod golf , bu yüzden en kısa kod kazanır.

APL (Dyalog Unicode) , 8 5 bayt

⍳*⊢-⍳

Çevrimiçi deneyin!

Anonim önek zımni fonksiyonu. [1..10] aralığı için TIO testleri.

3 byte için @ lirtosiast teşekkürler.

Nasıl:

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

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

Çevrimiçi deneyin!

Alternatif sürüm, ayrıca 23 bayt:

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

Japt, 5 bayt

õ_p´U

Dene

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

Perl 6 , 19 bayt

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

Çevrimiçi deneyin!

Bir sayı alan ve bir liste döndüren anonim kod bloğu. Zip aralığı 1 to inputve aralığını üstlerinput-1 to 0

Aheui (esotope) , 193 164 bayt (56 karakter)

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

Çevrimiçi deneyin!

AVIS ( Korece ) üzerinde deneyin ; sadece yukarıdaki kodu kopyalayıp yapıştırın, başlat düğmesine basın, bir sayı girin, nasıl hareket ettiğini görün. Çıktıyı görmek için sol taraftaki > _ simgesine basın .

Çok golf değil, ama deniyorum.

Pyth , 5 bayt

_m^-Q

Çevrimiçi deneyin!

Bu kod en uygun şekilde 4.106 bayt olur.

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

J , 10 bayt

(>:^|.)@i.

Çevrimiçi deneyin!

Sayıları gerçekten bir satırsonu ile ayırmamız gerekirse:

J , 13 bayt

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

Çevrimiçi deneyin!

Jöle , 5 bayt

R*ḶU$

Çevrimiçi deneyin!

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

PHP, 32 bayt

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

Pipo ile çalıştırın -nRveya çevrimiçi deneyin .

Oktav , 18 bayt

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

Çevrimiçi deneyin!

Teşekkürler Luis Mendo , dahili değişken kullanarak 3 bayt kaydeder.

Jöle , 4 bayt

*ạ¥€

Çevrimiçi deneyin!

Wolfram Dili (Mathematica) , 24 20 18 bayt

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

Çevrimiçi deneyin!

-4 teşekkürler @lirtosiast.

MathGolf , 6 bayt

rx\╒m#

Çevrimiçi deneyin!

Python 2 , 40 bayt

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

Çevrimiçi deneyin!

Python 2 , 41 bayt

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

Çevrimiçi deneyin!

Yakut , 27 bayt

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

Çevrimiçi deneyin!

Retina , 35 bayt

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

Çevrimiçi deneyin! Açıklama:

.+
*

Girişi tekli olarak dönüştürün.

_

Her konumu eşleştirin. Bu daha sonra birkaç değiştirme değişkeni ayarlar. $`maçın solu olur; $>`bunu sol ve eşleme olarak değiştirir; $.>`uzunluğu, yani geçerli dizini alacak şekilde değiştirir. $'bu arada maçın hakkı $.', uzunluk yani mevcut üs.

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

Bir dize oluşturun $.(artı $.'yinelemesini $.>`*artı _. Bir örnek olarak, 5 orijinal girişindeki 2 indeksi $.'için 3 ve $.>`2 dir, böylece sonuçta elde edilen dize olur $.(2*2*2*_. Bu uygun bir şekilde 2p'yi hesaplayan bir Retina değiştirme ifadesidir. Her dize kendi satırında çıkar.

%~`^
.+¶

Önceki aşama tarafından oluşturulan her satır için, bir satırın .+önüne bir önek ekleyin , bir yedek aşamaya dönüştürün ve o aşamayı değerlendirin, böylece ifadeyi hesaplayın.

QBasic, 35 33 bayt

@Neil 2 bayt için teşekkür ederiz!

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

REPL.IT üzerinde biraz genişletilmiş sürümTercüman tamamen teknik özelliklere olmadığından .

Çıktı

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

   5
1
8
9
4
1

F # (.NET Core) , 42 bayt

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

Çevrimiçi deneyin!

JavaScript (Node.js) , 33 32 bayt

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

Çevrimiçi deneyin!

@Shaggy'e -3 bayt ve @ l4m2'ye -1 bayt!

JavaScript (Node.js) , 36 bayt

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

Çevrimiçi deneyin!

JavaScript (Node.js) , 37 bayt

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

Çevrimiçi deneyin!

C # (Visual C # Etkileşimli Derleyici) , 46 bayt

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

Çevrimiçi deneyin!

MATL , 5 bayt

:Gy-^

Çevrimiçi deneyin!

açıklama

Girişi 5örnek olarak ele alalım.

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

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

Temiz , 37 bayt

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

Çevrimiçi deneyin!

$ :: Int -> [Int]Bir tamsayı almayı ve sonuç listesini döndürmeyi tanımlar .

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

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

Çevrimiçi deneyin!

05AB1E , 5 bayt

LD<Rm

Bağlantı noktası @lirtosiast 'in Jelly cevabı .

Çevrimiçi deneyin.

Açıklama:

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 bayt

@Shaggy sayesinde -2 bayt

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

Çevrimiçi deneyin!

R, 22 bayt

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

Oldukça açıklayıcı; unutmayın :operatör daha yüksek precendence olduğunu -, böylece operatör n:1-1daha kısadır(n-1):0

0'dan başlamamıza izin verilirse, (0:n)^(n:0)-1'e ihtiyaç duymadan iki bayt kaybedebiliriz .

Kömür , 9 bayt

Ｉ⮌ＥＮＸ⁻θιι

Çevrimiçi deneyin! Bağlantı, kodun ayrıntılı versiyonudur. Açıklama:

   Ｎ        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 # Etkileşimli Derleyici) , 55 bayt

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

Çevrimiçi deneyin!

Perl 5 -n , 21 bayt

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

Çevrimiçi deneyin!