16

Considere un triángulo en el que el N º fila (1-indexada) es la matriz de los primero N potencias enteras positivas de N . Aquí están las primeras filas:

N | Triángulo

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

Ahora, si concatenamos esos poderes en una sola secuencia, obtenemos OEIS A075363 :

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

Dado un número entero N , su tarea es devolver el N º término de esta secuencia. Puede elegir 0 o 1 indexación.

Casos de prueba

1 indexado:

N -> Salida

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

0 indexado:

N -> Salida

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

Tenga en cuenta que estas lagunas están prohibidas por defecto. Este es el código de golf , por lo tanto, gana la presentación válida más corta en cada idioma.

code-golf math number sequence Sr. Xcoder
fuente

Creo que hay algún error en los casos de prueba: en 1 indexado 10 debería ser 256; en 0 indexado 9 debería ser 256.

Galen Ivanov

¿Podemos tener espacios finales?

Stan Strum

@StanStrum Sí.

Sr. Xcoder

7

Python 3 , 39 bytes

1 indexado

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

Pruébalo en línea!

Halvard Hummel
fuente

7

Cáscara , 7 bytes

!ṁṠM^ḣN

Pruébalo en línea!

1 indexado

Explicación:

      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
fuente

5

Wolfram Language (Mathematica) , 32 bytes

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

Pruébalo en línea!

Rangos al poder de rangos de rangos ...

Martin Ender
fuente

Range@Range@3vuelve {{1}, {1, 2}, {1, 2, 3}}? Maldición, el enhebrado de la lista de Mathematica es una locura.

numbermaniac

4

R , 40 bytes

-2 bytes portando la respuesta de Halvard Hummel

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

Pruébalo en línea!

R , (respuesta original) 42 bytes

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

Pruébalo en línea!

1 indexado.

Giuseppe
fuente

4

APL (Dyalog) , 15 13 10 bytes

3 bytes guardados gracias a @ Adám

⊢⊃∘∊⍳*⍳¨∘⍳

Pruébalo en línea!

¿Cómo?

⍳¨∘⍳ - cree un rango para cada número en el rango de entrada

⍳* - elevar cada número en el rango de entrada a las potencias correspondientes

∊ - aplanar

⊢⊃ - elige el enésimo elemento

Uriel
fuente

Al intentarlo en línea, el código parece tener 17 bytes y no parece aceptar un argumento entero escalar ni producir una sola salida entera

Graham

1

@Graham Online, el código se asigna a una variable f(por lo tanto, f←son 2 bytes más, que no se cuentan aquí), y hay un arnés de prueba que devuelve los resultados de 1a 10.

Erik el Outgolfer

Seguramente debe contar todos los bytes, incluidas las asignaciones y las requeridas para recibir la entrada de acuerdo con la especificación de la pregunta y la salida de acuerdo con la especificación. Mi respuesta APL solicita entradas de pantalla.

Graham

@Graham, este es un dyalog APL dfns. No requiere que se aplique la asignación en ninguna entrada, la salida TIO es solo para una vista cómoda

Uriel

Sobre esa base, puedo suponer que puedo asignar n dentro de mi espacio de trabajo antes de ejecutar APL one liner y, por lo tanto, ahorrar 7 bytes, no estoy seguro de que nuestros competidores lo acepten.

Graham

3

Jalea , 7 bytes

*R$€Ẏ⁸ị

Pruébalo en línea!

-1 gracias al Sr. Xcoder .

1 indexado.

Erik el Outgolfer
fuente

Código impresionante aquí.

Jonathan Allan el

Deshaciéndome de la sintaxis elegante ", mi propia solución es de 7 bytes:*R$€F⁸ị

Sr. Xcoder

@ Mr.Xcoder Gracias, aunque ya había eliminado el ", pero aún así. Eso es lo que obtienes por tener que estudiar historia: /

Erik the Outgolfer el

3

Haskell , 30 28 bytes

Guardado 2 bytes gracias a xnor.

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

Pruébalo en línea!

0 indexado

H.PWiz
fuente

1

En realidad es más corto usar la lista de compilación [n^i|n<-[1..],i<-[1..n]].

xnor

Oh, lo estaba comparando con la >>=forma ...

H.PWiz

3

MATL , 9 bytes

:t!^RXzG)

La indexación se basa en 1. Pruébalo en línea! O verificar todos los casos de prueba .

Explicación

Considere la entrada 5como un ejemplo.

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

3

APL (Dyalog) , 14 12 bytes

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

Pruébalo en línea!

Utiliza 1 indexación

Guardado 2 bytes con ↑,/ → ∊, tomado de la respuesta de Graham

Tenga en cuenta que en el enlace de prueba, el código requiere un extra f←, pero esto no se cuenta según nuestras reglas.

H.PWiz
fuente

Uso muy inteligente de ∘con ⍨.

Adám

@ Adám Gracias :-)

H.PWiz

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

Adám

Publicaría eso ... si tuviera alguna idea de cómo funcionó

H.PWiz

⊢es para una función tácita lo que ⍵es para un dfn. El ∘intermedio ⌷y ∊es necesario porque ∊se llama monádicamente, por lo que se indexa al alistado . Y cambiamosf⍨⍳ en ⍳ f ⍳para evitar llamar f ( *∘⍳¨) monádicamente (siempre ⍨y ¨son adyacentes, que pueden intercambiar la posición).

Adám el

3

Pyth , 8 bytes

@s^RSdSh

Pruébalo aquí

-1 gracias a Steven H. ..

0 indexado.

Erik el Outgolfer
fuente

@s^RSdShjugar al golf un byte apagado.

Steven H.

2

05AB1E , 9 bytes

ƒNDLm`}I@

Pruébalo en línea!

Explicación

1 indexado.

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

Solución alternativa sobre una lista en lugar de un bucle

ÝεDLm}˜sè

Emigna
fuente

1

Perl 6 , 29 bytes

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

Pruébalo

Expandido:

{  # 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
fuente

1

Ruby , 34 bytes

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

Pruébalo en línea!

GB
fuente

1

JavaScript , 30 bytes

-1 byte gracias a Nahuel Fouilleul

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

Pruébalo en línea!

FlipTack
fuente

-1 byte invirtiendo la pruebaf=(x,n=1)=>x>n?f(x-n,n+1):n**x

Nahuel Fouilleul

@NahuelFouilleul, por supuesto, ¡gracias!

FlipTack

0

Python 2 , 57 bytes

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

Pruébalo en línea! (0 indexado)

Alternativa indexada a 0 de 74 bytes de versión larga .

Jonathan Frech
fuente

0

Jalea , 15 12 bytes

_{Probablemente no sea óptimo.}

-3 gracias al golf de Erik the Outgolfer .

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

Pruébalo en línea!

Jonathan Allan
fuente

Wow, debes estar realmente cansado hoy.

Erik the Outgolfer

Estoy realmente muy enfermo!

Jonathan Allan

10

¡Lo siento! ¡Espero que te mejores pronto!

Erik the Outgolfer

Además, aquí hay unos 3 bytes de descuento que logré extraer de esto trivialmente.

Erik the Outgolfer

0

J , 20 bytes

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

1 indexado

Pruébalo en línea!

Galen Ivanov
fuente

0

APL + WIN, 23 bytes

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

Explicación:

[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
fuente

¿En qué dialecto APL funciona esto?

Erik the Outgolfer el

Está escrito en APL + WIN. Dejaré esto claro en cualquier respuesta futura

Graham

Tomé ∊de tu respuesta para reemplazar mi ↑,/. No sabía de esa función. Gracias

H.PWiz

@EriktheOutgolfer Creo que esto funcionará en cualquier APL moderna.

Adám

0

SILOS , 45 bytes

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

Pruébalo en línea!

Monja permeable
fuente

0

Perl 5, 30 + 1 (-p) bytes

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

pruébalo en línea

Nahuel Fouilleul
fuente

0

Clojure 51 bytes

0 indexado, por ejemplo, la entrada 9devuelve 256.0.

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

NikoNyrh
fuente

0

C 7662 bytes

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);}~~

Lo basé en este código

Pruébalo en ideone

PrincePolka
fuente

0

Pyt , 39 37 bytes

1 indexado

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

Explicación:

Brevemente, calcula cada fila. Si el número solicitado está en esa fila, devuélvalo; de lo contrario, pase a la siguiente fila.

mudkip201
fuente

La secuencia de enteros exponenciados por rango

Casos de prueba

Respuestas:

Python 3 , 39 bytes

Cáscara , 7 bytes

Explicación:

Wolfram Language (Mathematica) , 32 bytes

R , 40 bytes

R , (respuesta original) 42 bytes

APL (Dyalog) , 15 13 10 bytes

Jalea , 7 bytes

Haskell , 30 28 bytes

MATL , 9 bytes

Explicación

APL (Dyalog) , 14 12 bytes

Pyth , 8 bytes

05AB1E , 9 bytes

Perl 6 , 29 bytes

Expandido:

Ruby , 34 bytes

JavaScript , 30 bytes

Python 2 , 57 bytes

Jalea , 15 12 bytes

J , 20 bytes

APL + WIN, 23 bytes

SILOS , 45 bytes

Perl 5, 30 + 1 (-p) bytes

Clojure 51 bytes

C 7662 bytes

Pyt , 39 37 bytes