16

Rozważmy trójkąta gdzie N ty rząd (1 indeksowane) to tablica pierwszych N dodatnich mocy całkowitą o N . Oto kilka pierwszych wierszy:

N | Trójkąt

1 | 1
2 | 2 4
3 | 3 9 27
4 | 4 16 64 256
5 | 5 25 125 625 3125
...

Teraz, jeśli połączymy te moce w jedną sekwencję, otrzymamy OEIS A075363 :

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

Biorąc pod uwagę liczbę całkowitą N , Twoim zadaniem jest zwrócenie N- tego terminu tej sekwencji. Możesz wybrać indeksowanie 0 lub 1.

Przypadki testowe

1-indeksowany:

N -> Dane wyjściowe

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

0-indeksowane:

N -> Dane wyjściowe

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

Pamiętaj, że te luki są domyślnie zabronione. To jest golf golfowy , dlatego wygrywa najkrótsza ważna wersja w każdym języku!

code-golf math number sequence Pan Xcoder
źródło

Myślę, że w testowych przypadkach występuje pewien błąd: w 1 indeksowanym 10 powinno być 256; w indeksie 0 powinno wynosić 256.

Galen Iwanow

Czy możemy mieć końcowe spacje?

Stan Strum,

@StanStrum Tak.

Pan Xcoder,

7

Python 3 , 39 bajtów

1-indeksowany

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

Wypróbuj online!

Halvard Hummel
źródło

7

Łuska , 7 bajtów

!ṁṠM^ḣN

Wypróbuj online!

1-indeksowany

Wyjaśnienie:

      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
źródło

5

Wolfram Language (Mathematica) , 32 bajty

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

Wypróbuj online!

Zakresy mocy zakresów zakresów ...

Martin Ender
źródło

Range@Range@3zwraca {{1}, {1, 2}, {1, 2, 3}}? Cholera, zestawianie wątków Mathematiki jest szalone.

numbermaniac

4

R , 40 bajtów

-2 bajty przenoszące odpowiedź Halvarda Hummela

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

Wypróbuj online!

R , (oryginalna odpowiedź) 42 bajty

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

Wypróbuj online!

1-indeksowany.

Giuseppe
źródło

4

APL (Dyalog) , 15 13 10 bajtów

3 bajty zapisane dzięki @ Adám

⊢⊃∘∊⍳*⍳¨∘⍳

Wypróbuj online!

W jaki sposób?

⍳¨∘⍳ - utwórz zakres dla każdej liczby w zakresie danych wejściowych

⍳* - podnieść każdą liczbę w zakresie danych wejściowych do odpowiednich mocy

∊ - spłaszczyć

⊢⊃ - wybierz n-ty element

Uriel
źródło

Próbując go w trybie online, kod wydaje się mieć 17 bajtów i nie wydaje się, aby przyjmował argument liczb całkowitych skalarnych ani nie generował pojedynczej liczby całkowitej

Graham,

1

@Graham Online, kod jest przypisany do zmiennej f(w ten sposób f←są jeszcze 2 bajty, które nie są tutaj liczone), i istnieje wiązka testowa, która zwraca wyniki od 1do 10.

Erik the Outgolfer,

Na pewno musisz policzyć wszystkie bajty, w tym wszelkie takie przypisania i te wymagane do wprowadzenia danych wejściowych zgodnie ze specyfikacją pytania i wyjścia zgodnie ze specyfikacją. Moja odpowiedź APL monituje o wprowadzenie ekranu.

Graham

@Graham to dyalog APL dfns. Nie wymaga przypisania przypisania do żadnego wejścia, gniazdo TIO służy tylko wygodnemu widokowi

Uriel,

Na tej podstawie mogę założyć, że mogę przypisać n w moim obszarze roboczym przed uruchomieniem jednej linijki APL, a tym samym zaoszczędzić 7 bajtów, nie jestem pewien, czy nasi konkurenci to zaakceptują.

Graham

3

Galaretka , 7 bajtów

*R$€Ẏ⁸ị

Wypróbuj online!

-1 dzięki Mr. Xcoder .

1-indeksowany.

Erik the Outgolfer
źródło

Niesamowity kod tutaj.

Jonathan Allan,

Pozbywając się fantazyjnej składni ", moje własne rozwiązanie to 7 bajtów:*R$€F⁸ị

Pan Xcoder,

@ Mr.Xcoder Dzięki, chociaż już usunąłem ", ale nadal. Oto, co dostajesz za konieczność studiowania historii: /

Erik the Outgolfer,

3

Haskell , 30 28 bajtów

Zaoszczędzono 2 bajty dzięki xnor.

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

Wypróbuj online!

0-indeksowane

H.PWiz
źródło

1

W rzeczywistości użycie komp [n^i|n<-[1..],i<-[1..n]]. Listy jest krótsze .

xnor

Och, porównywałem to do >>=formy ...

H.PWiz

3

MATL , 9 bajtów

:t!^RXzG)

Indeksowanie jest oparte na 1. Wypróbuj online! Lub sprawdź wszystkie przypadki testowe .

Wyjaśnienie

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

:     % 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
źródło

3

APL (Dyalog) , 14 12 bajtów

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

Wypróbuj online!

Wykorzystuje indeksowanie 1

Zapisano 2 bajty z ↑,/ → ∊ , zaczerpnięte z odpowiedzi Grahama

Pamiętaj, że w linku testowym kod wymaga dodatkowego f←, ale nie jest to liczone zgodnie z naszymi zasadami.

H.PWiz
źródło

Bardzo sprytne użycie ∘z ⍨.

Adám

@ Adám Dzięki :-)

H.PWiz

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

Adám

Zamieściłbym

⊢jest funkcją ukrytą, co ⍵jest dla dfn. ∘Pomiędzy ⌷i ∊jest potrzebna, ponieważ ∊nazywa monadically, więc jest to indeks zamieszczenia . I że zmiany f⍨⍳w ⍳ f ⍳Aby uniknąć wywoływania f ( *∘⍳¨monadically) (o ile ⍨i ¨sąsiadują ze sobą, mogą zamienić położenie).

Adám

3

Pyth , 8 bajtów

@s^RSdSh

Wypróbuj tutaj.

-1 dzięki Stevenowi H. .

0-indeksowane.

Erik the Outgolfer
źródło

@s^RSdShzagrać w golfa.

Steven H.,

2

05AB1E , 9 bajtów

ƒNDLm`}I@

Wypróbuj online!

Wyjaśnienie

1-indeksowany.

ƒ           # 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)

Alternatywne rozwiązanie dla listy zamiast pętli

ÝεDLm}˜sè

Emigna
źródło

1

Perl 6 , 29 bajtów

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

Sprawdź to

Rozszerzony:

{  # 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 b2gills
źródło

1

Rubinowy , 34 bajty

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

Wypróbuj online!

GB
źródło

1

JavaScript , 30 bajtów

-1 bajt dzięki Nahuelowi Fouilleulowi

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

Wypróbuj online!

FlipTack
źródło

-1 bajt odwracający testf=(x,n=1)=>x>n?f(x-n,n+1):n**x

Nahuel Fouilleul

@NahuelFouilleul oczywiście, dziękuję!

FlipTack,

0

Python 2 , 57 bajtów

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

Wypróbuj online! (Indeksowane 0).

Alternatywna wersja o długości 74 bajtów z indeksowaniem 0 .

Jonathan Frech
źródło

0

Galaretka , 15 12 bajtów

_{Prawdopodobnie nie optymalne.}

-3 dzięki grze w golfa Erika the Outgolfer .

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

Wypróbuj online!

Jonathan Allan
źródło

Wow, musisz być dzisiaj naprawdę zmęczony.

Erik the Outgolfer,

Jestem naprawdę chory!

Jonathan Allan,

10

Przepraszam! Mam nadzieję, że niedługo poczujesz się lepiej!

Erik the Outgolfer,

Poza tym oto około 3 bajtów, z których udało mi się wyciągnąć z tego trywialnie.

Erik the Outgolfer,

0

J , 20 bajtów

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

1-indeksowany

Wypróbuj online!

Galen Iwanow
źródło

0

APL + WIN, 23 bajty

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

Wyjaśnienie:

[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
źródło

Na jakim dialekcie APL działa to?

Erik the Outgolfer,

Jest napisany w APL + WIN. Wyjaśnię to w przyszłych odpowiedziach

Graham,

Wziąłem ∊z twojej odpowiedzi, aby zastąpić moją ↑,/. Nie wiedziałem o tej funkcji. Dzięki

H.PWiz

@EriktheOutgolfer Myślę, że to zadziała na każdej nowoczesnej APL.

Adám

0

SILOS , 45 bajtów

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

Wypróbuj online!

Leaky Nun
źródło

0

Perl 5, 30 + 1 (-p) bajtów

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

spróbuj online

Nahuel Fouilleul
źródło

0

Clojure 51 bajtów

Indeksowane 0, na przykład 9zwraca dane wejściowe 256.0.

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

NikoNyrh
źródło

0

do 76, 62 bajty

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) (-. 5 + sqrt (1 + 8 * ~ -n) / 2) +2; n + = y * (3-y) / 2-1; return (int ) pow (y-1, n);}~~

Oparłem go na tym kodzie

Wypróbuj na ideone

PrincePolka
źródło

0

Pyt , 39 37 bajtów

1-indeksowany

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

Wyjaśnienie:

W skrócie, oblicza każdy wiersz. Jeśli żądany numer znajduje się w tym wierszu, zwróć go; w przeciwnym razie przejdź do następnego wiersza.

mudkip201
źródło

Sekwencja liczb całkowitych wykładniczych w zakresie

Przypadki testowe

Odpowiedzi:

Python 3 , 39 bajtów

Łuska , 7 bajtów

Wyjaśnienie:

Wolfram Language (Mathematica) , 32 bajty

R , 40 bajtów

R , (oryginalna odpowiedź) 42 bajty

APL (Dyalog) , 15 13 10 bajtów

Galaretka , 7 bajtów

Haskell , 30 28 bajtów

MATL , 9 bajtów

Wyjaśnienie

APL (Dyalog) , 14 12 bajtów

Pyth , 8 bajtów

05AB1E , 9 bajtów

Perl 6 , 29 bajtów

Rozszerzony:

Rubinowy , 34 bajty

JavaScript , 30 bajtów

Python 2 , 57 bajtów

Galaretka , 15 12 bajtów

J , 20 bajtów

APL + WIN, 23 bajty

SILOS , 45 bajtów

Perl 5, 30 + 1 (-p) bajtów

Clojure 51 bajtów

do 76, 62 bajty

Pyt , 39 37 bajtów