16

Bir üçgen düşünün N inci satır (1-endeksli) birinci dizi olan K arasında pozitif bir tam sayı güçleri N . İşte ilk birkaç satır:

N | Üçgen

1 | 1
2 | 2 4
3 | 3 9 27
4 | 4 16 64256
5 | 5 25125 625 3125
...

Şimdi bu güçleri tek bir sıra halinde birleştirirsek, OEIS elde ederiz OEIS A075363'ü ederiz :

1, 2, 4, 3, 9, 27, 4, 16, 64, 256, 5, 25, 125, 625, 3125, 6, 36, 216, 1296, 7776, 46656 ...

Bir tamsayı Verilen N , görev döndürmektir v- bu dizinin inci dönem. 0 veya 1 endekslemeyi seçebilirsiniz.

Test senaryoları

1 endeksli:

N -> Çıktı

1 -> 1
2 -> 2
3 -> 4
5 -> 9
10 -> 256
12 -> 25
15 -> 3125

0 endeksli:

N -> Çıktı

0 -> 1
1 -> 2
2 -> 4
4 -> 9
9 -> 256
11 -> 25
14 -> 3125

Bu boşlukların varsayılan olarak yasak olduğunu unutmayın . Bu kod golf , bu nedenle her dilde en kısa geçerli başvuru kazanır!

— Bay Xcoder
kaynak

Ben test durumlarda bazı hata olduğunu düşünüyorum: 1 dizinli 10 256 olmalıdır; - 0 endeksli 9 256 olmalıdır.

— Galen Ivanov

Sonunda boşluklar olabilir mi?

— Stan Strum

@StanStrum Evet.

— Bay Xcoder

7

Python 3 , 39 bayt

1 endeksli

f=lambda x,n=1:n**x*(x<=n)or f(x-n,n+1)

Çevrimiçi deneyin!

— Halvard Hummel
kaynak

7

Kabuk , 7 bayt

!ṁṠM^ḣN

Çevrimiçi deneyin!

1 endeksli

Açıklama:

      N   Get the list of all natural numbers
 ṁ        Map over each n in that list and then concatenate
  Ṡ  ḣ      Create the range [1,n] then ...
   M^       raise n to the power of each
!         Index into that sequence

— H.PWiz
kaynak

5

Wolfram Dili (Mathematica) , 32 bayt

r=Range;Flatten[r@#^r@r@#][[#]]&

Çevrimiçi deneyin!

Menzil aralığı menzil gücü ...

— Martin Ender
kaynak

Range@Range@3döner {{1}, {1, 2}, {1, 2, 3}}?! Kahretsin, Mathematica'nın liste dizisi çılgın.

— numbermaniac

4

R , 40 bayt

Halvard Hummel'in cevabını taşıyan -2 bayt

function(N){while(N>T){N=N-T;T=T+1};T^N}

Çevrimiçi deneyin!

R , (orijinal yanıt) 42 bayt

function(N)(rep(1:N,1:N)^sequence(1:N))[N]

Çevrimiçi deneyin!

1 endeksli.

— Giuseppe
kaynak

4

APL (Dyalog) , 15 13 10 bayt

@ Adám sayesinde 3 byte tasarruf edildi

⊢⊃∘∊⍳*⍳¨∘⍳

Çevrimiçi deneyin!

Nasıl?

⍳¨∘⍳ - girdi aralığındaki her sayı için bir aralık oluşturun

⍳* - giriş aralığındaki her bir sayıyı karşılık gelen güçlere yükseltin

∊ - yassılaştırmak

⊢⊃ - n'inci elemanı seç

— Uriel
kaynak

Çevrimiçi olarak denenirken kod 17 bayt gibi görünüyor ve skaler tam sayı argümanını kabul etmiyor veya tek bir tamsayı çıktısı üretmiyor gibi görünüyor

— Graham

1

@Graham Sistemde, kod, bir değişkene atanır f(böylece f←burada sayılmaz 2 daha bayt olan), ve şu sonucu verir bir test tesisatı vardır 1için 10.

— Outgolfer Erik

Şüphesiz, bu tür atamalar ve soru spesifikasyonuna göre girdi almak ve spesifikasyona göre çıktı almak için gerekli olanları içeren tüm baytları saymalısınız. APL yanıtım ekran girişi istiyor.

— Graham

@Graham bu bir dyalog APL dfns. Herhangi bir girişe atama yapılmasını gerektirmez, TIO çıkışı sadece rahat görünüm içindir

— Uriel

Bu temelde, APL bir astarı çalıştırmadan önce çalışma alanımda n atayabildiğimi ve böylece 7 bayt tasarruf edebileceğimi varsayabilirim, rakiplerimizin bunu kabul edeceğinden emin değilim.

— Graham

3

Jöle , 7 bayt

*R$€Ẏ⁸ị

Çevrimiçi deneyin!

-1 Bay Xcoder sayesinde .

1 endeksli.

— Outgolfer Erik
kaynak

Burada müthiş bir kod.

— Jonathan Allan

Süslü sözdiziminden kurtulmak, "kendi çözümüm 7 bayt:*R$€F⁸ị

— Bay Xcoder

@ Mr.Xcoder Teşekkürler, ben zaten kaldırmış olmama rağmen ", ama yine de. Tarih okumak zorunda kaldığın şey budur: /

— Outgolfer Erik

3

Haskell , 30 28 bayt

Xnor sayesinde 2 bayt kaydedildi.

([n^m|n<-[1..],m<-[1..n]]!!)

Çevrimiçi deneyin!

0 endeksli

— H.PWiz
kaynak

1

Comp listesini kullanmak aslında daha kısadır [n^i|n<-[1..],i<-[1..n]].

— xnor

Oh, bunu >>=formla karşılaştırıyordum ...

— H.PWiz

3

MATL , 9 bayt

:t!^RXzG)

Endeksleme 1 tabanlıdır. Çevrimiçi deneyin! Veya tüm test senaryolarını doğrulayın .

açıklama

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

:     % Implcit input n. Push range [1 2 ... n]
      % STACK: [1 2 3 4 5]
t!^   % Matrix of all pair-wise powers
      % STACK: [1    2    3    4    5;
                1    4    9   16   25;
                1    8   27   64  125;
                1   16   81  256  625;
                1   32  243 1024 3125]
R     % Upper triangular matrix
      % STACK: [1    2    3    4    5;
                0    4    9   16   25;
                0    0   27   64  125;
                0    0    0  256  625;
                0    0    0    0 3125]
Xz    % Nonzeros. Reads values in column-major order
      % STACK: [1; 2; 4; 3; 9; ...; 625; 3125]
G)    % Get n-th entry (1-based). Implcit display
      % STACK: 9

— Luis Mendo
kaynak

3

APL (Dyalog) , 14 12 bayt

{⍵⌷∊*∘⍳⍨¨⍳⍵}

Çevrimiçi deneyin!

1 endeksleme kullanır

Graham'ın cevabından↑,/ → ∊ alınan 2 bayt kaydedildi

Test bağlantısında, kodun fazladan bir şey gerektirdiğini f←, ancak bu kurallarımıza göre sayılmadığını unutmayın.

— H.PWiz
kaynak

Çok zekisiniz kullanımı ∘ile ⍨.

— Adam

@ Adám Teşekkürler :-)

— H.PWiz

{⍵⌷∊*∘⍳⍨¨⍳⍵}→ ⊢⌷∘∊((*∘⍳)⍨¨⍳)→ ⊢⌷∘∊(⍳(*∘⍳)¨⍳)→⊢⌷∘∊⍳*∘⍳¨⍳

— Adám

Bunu gönderirim ... bunun nasıl çalıştığı hakkında bir fikrim varsa

— H.PWiz

⊢⍵bir dfn için olan bir tacit fonksiyonudur . ∘Arasında ⌷ve ∊çünkü gereklidir ∊öyledir monadik denir askere endeks . Ve biz değişiyoruzf⍨⍳⍳ f ⍳ f ( *∘⍳¨) 'yi tek tek çağırmaktan kaçınırız ( ⍨ve ¨bitişik olduklarında, pozisyon değiştirebilirler).

— Adam

3

Pyth , 8 bayt

@s^RSdSh

Burada deneyin.

-1 Steven H. sayesinde .

0 endeksli.

— Outgolfer Erik
kaynak

@s^RSdShbir bayt golf.

— Steven H.

2

05AB1E , 9 bayt

ƒNDLm`}I@

Çevrimiçi deneyin!

açıklama

1 endeksli.

ƒ           # for N in range [0 ... input]
 N          # push N
  DL        # push range [1 ... N]
    m       # raise N to the power of each in [1 ... N]
     `      # flatten to stack
      }     # end loop
       I@   # get the element at index (input)

Döngü yerine liste üzerinde alternatif çözüm

ÝεDLm}˜sè

— Emigna
kaynak

1

Perl 6 , 29 bayt

{({|($++X**1..$++)}...*)[$_]}

Dene

Expanded:

{  # bare block lambda with implicit parameter ｢$_｣

  (  # generate the sequence

    {  # code block used to generate each value in the sequence

      |(         # slip the values into the outer sequence

        $++      # post-incremented anonymous state value
        X**      # cross using &infix:«**»
        1 .. $++ # from 1 to post-incremented anonymous state value

      )
    }

    ...          # keep generating values until

    *            # never stop

  )[ $_ ]        # index into the sequence (0-based)
}

— Brad Gilbert Instagram Hesabındaki Resim ve Videoları b2gills
kaynak

1

Ruby , 34 bayt

->n{w=0;n-=w+=1until n<0;w**=w-~n}

Çevrimiçi deneyin!

— GB
kaynak

1

JavaScript , 30 bayt

Nahuel Fouilleul sayesinde -1 bayt

f=(x,n=1)=>x>n?f(x-n,n+1):n**x

Çevrimiçi deneyin!

— FlipTack
kaynak

-1 bayt testi ters çevirmef=(x,n=1)=>x>n?f(x-n,n+1):n**x

— Nahuel Fouilleul

@NahuelFouilleul elbette, teşekkür ederim!

— FlipTack

0

Python 2 , 57 bayt

lambda N:[n**-~e for n in range(N+2)for e in range(n)][N]

Çevrimiçi deneyin!(0 endeksli.)

0 endeksli alternatif 74 bayt uzun versiyon .

— Jonathan Frech
kaynak

0

Jöle , 15 12 bayt

_{Muhtemelen optimal değil.}

Outgolfer'ın golf oynaması sayesinde -3 .

=RṁR€T€µT*FḢ

Çevrimiçi deneyin!

— Jonathan Allan
kaynak

Vay, bugün gerçekten yorgun olmalısın.

— Outgolfer Erik

Aslında çok hastayım!

— Jonathan Allan

10

Afedersiniz! Umarım yakında iyileşirsin!

— Outgolfer Erik

Ayrıca, bu 3 önemsiz kapalı bu önemsiz koparmak başardı.

— Outgolfer Erik

0

J , 20 bayt

{1,[:;[:(^&.><\)1+i.

1 endeksli

Çevrimiçi deneyin!

— Galen Ivanov
kaynak

0

APL + WIN, 23 bayt

(∊n↑¨⊂[2]n∘.*n←⍳n)[n←⎕]

Açıklama:

[n←⎕] prompts for screen input and selects the nth element of the concatenated vector
see below

n←⍳n creates a vector of 1 to n

∘.* outer product with exponentiation as the operator

⊂[2] enclose each row of the resulting array as an element of a nested array

∊n↑¨ take 1 to n elements from the 1 to nth row of the matrix and concatenate into a vector

— Graham
kaynak

Bu hangi APL lehçesi üzerinde çalışıyor?

— Outgolfer Erik

APL + WIN'de yazılmıştır. Bunu gelecekteki cevaplarda açıklığa kavuşturacağım

— Graham

Çektiğim ∊benim yerine Cevabınız dan ↑,/. O işlevi bilmiyordum. Teşekkürler

— H.PWiz

@EriktheOutgolfer Bunun herhangi bir modern APL üzerinde çalışacağını düşünüyorum.

— Adam

0

SILOS , 45 bayt

readIO
lblb
a+1
i-a
if i b
i+a
a^i
printInt a

Çevrimiçi deneyin!

— Sızdıran Rahibe
kaynak

0

Perl 5, 30 + 1 (-p) bayt

$_-=$.++until$.>$_;$_=$.**++$_

çevrimiçi dene

— Nahuel Fouilleul
kaynak

0

Clojure 51 bayt

0 dizinli, örneğin girdi 9döndürür 256.0.

#(nth(for[i(range)j(range i)](Math/pow i(inc j)))%)

— NikoNyrh
kaynak

0

C 76, 62 bayt

y;f(n){for(y=0;n>y*++y/2;);return(int)pow(y-1,n+y*(3-y)/2-1);}

~~Y, f (n) {y = (int) - + 2 (5 + sqrt (1 + 8 * ~ n) / 2.), n + = Y * (3-il) / 2-1, dönüş (int ) pow, (y-1, n);}~~

Ben bu koda dayalı

İdeone üzerinde deneyin

— PrincePolka
kaynak

0

Pyt , 39 37 bayt

1 endeksli

←000`ŕŕ⁺ĐĐř^Đ04Ș↔+⇹Ł-Đ↔3Ș0>łŕ0↔⇹+⁻⦋↔ŕ

Açıklama:

Kısacası, her satırı hesaplar. İstenen numara bu satırdaysa, döndürün; aksi takdirde bir sonraki satıra gidin.

— mudkip201
kaynak

Menzil üslü tamsayılar dizisi

Test senaryoları

Python 3 , 39 bayt

Kabuk , 7 bayt

Açıklama:

Wolfram Dili (Mathematica) , 32 bayt

R , 40 bayt

R , (orijinal yanıt) 42 bayt

APL (Dyalog) , 15 13 10 bayt

Jöle , 7 bayt

Haskell , 30 28 bayt

MATL , 9 bayt

açıklama

APL (Dyalog) , 14 12 bayt

Pyth , 8 bayt

05AB1E , 9 bayt

Perl 6 , 29 bayt

Expanded:

Ruby , 34 bayt

JavaScript , 30 bayt

Python 2 , 57 bayt

Jöle , 15 12 bayt

J , 20 bayt

APL + WIN, 23 bayt

SILOS , 45 bayt

Perl 5, 30 + 1 (-p) bayt

Clojure 51 bayt

C 76, 62 bayt

Pyt , 39 37 bayt