16

考虑一个三角形，其中Ñ个行（1-索引）是第一阵列Ñ的正整数幂Ñ。这是前几行：

N | 三角形

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

现在，如果将这些能力合并为一个序列，我们将获得OEIS A075363：

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

给定整数N，您的任务是返回此序列的第N个项。您可以选择0或1索引。

测试用例

1索引：

N->输出

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

0索引：

N->输出

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

请注意，默认情况下，这些漏洞是禁止的。这是代码高尔夫球，因此赢得每种语言中最短的有效提交！

— Xcoder先生
source

我认为测试用例中存在一些错误：在1索引中10应该是256；在1索引中应该是256。在0索引9应为256

— 盖伦诺夫

我们可以有尾随空格吗？

— Stan Strum，

@StanStrum是的。

— Xcoder先生17年

7

Python 3，39个字节

1索引

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

在线尝试！

— 哈佛哈默尔
source

7

外壳，7个字节

!ṁṠM^ḣN

在线尝试！

1索引

说明：

      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

— 普维兹
source

5

Wolfram语言（Mathematica），32字节

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

在线尝试！

范围到范围的幂...

— 马丁·恩德
source

Range@Range@3返回{{1}, {1, 2}, {1, 2, 3}}？！该死，Mathematica的列表线程很疯狂。

— numbermaniac

4

R，40个字节

-2字节移植Halvard Hummel的答案

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

在线尝试！

R（原始答案）42个字节

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

在线尝试！

1个索引。

— 朱塞佩
source

4

APL（Dyalog），15 13 10字节

@Adám节省了3个字节

⊢⊃∘∊⍳*⍳¨∘⍳

在线尝试！

怎么样？

⍳¨∘⍳ -为输入范围内的每个数字创建一个范围

⍳* -将输入范围内的每个数字提高到相应的幂

∊ -展平

⊢⊃ -选择第n个元素

— 乌里尔
source

在线尝试使用该代码似乎只有17个字节，并且似乎没有接受标量整数参数或产生单个整数输出

— Graham

1

@Graham Online，将代码分配给了一个变量f（因此f←还有2个字节，这里不计算在内），并且有一个测试工具将结果从返回1到10。

— 越野选手埃里克（Erik the Outgolfer）'17年

当然，您必须计算所有字节，包括任何此类分配，以及根据问题规范接受输入并根据规范输出所需的字节。我的APL回答提示输入屏幕。

— Graham

@Graham这是dyalog APL dfns。它不需要将分配应用于任何输入，TIO插座仅用于舒适观看

— Uriel

在此基础上，我可以假设在运行APL之前可以在工作区中分配n，从而节省7个字节，我不确定竞争对手是否会接受。

— 格雷厄姆

3

果冻，7个字节

*R$€Ẏ⁸ị

在线尝试！

-1感谢Xcoder先生。

1个索引。

— 暴民埃里克
source

很棒的代码就在这里。

— 乔纳森·艾伦

用摆脱花哨的语法"，我自己的解决方案是7个字节：*R$€F⁸ị

— Xcoder先生17年

@ Mr.Xcoder谢谢，尽管我已经删除了"，但是仍然。那就是您必须学习历史的结果：/

— Erik the Outgolfer

3

Haskell，30 28字节

多亏了xnor，节省了2个字节。

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

在线尝试！

0索引

— 普维兹
source

1

使用list comp实际上要短一些[n^i|n<-[1..],i<-[1..n]]。

— xnor

哦，我正在将其与>>=表格进行比较...

— H.PWiz

3

玛特，9字节

:t!^RXzG)

索引基于1。在线尝试！或验证所有测试用例。

说明

以输入5为例。

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

— 路易斯·门多
source

3

APL（Dyalog），14 12字节

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

在线尝试！

使用1索引

与一起保存了2个字节↑,/ → ∊，摘自Graham的答案

请注意，在测试链接中，代码需要额外的f←，但这并不是我们的规则所计算的。

— 普维兹
source

∘与配合使用非常巧妙⍨。

— 亚当

@Adám谢谢：-)

— H.PWiz

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

— 亚当

我会发布...如果我有任何想法的话

— H.PWiz

⊢对于默认功能，⍵对于dfn。该∘之间⌷和∊被需要的，因为∊被称为monadically，所以它是指数入伍。我们改变f⍨⍳为⍳ f ⍳避免调用F（*∘⍳¨monadically）（只要⍨和¨是相邻的，他们可能会互换位置）。

— 亚当

3

Pyth，8个字节

@s^RSdSh

在这里尝试。

-1感谢StevenH。。

0索引。

— 暴民埃里克
source

@s^RSdSh打高尔夫球。

— 史蒂文H.

2

05AB1E，9个字节

ƒNDLm`}I@

在线尝试！

说明

1个索引。

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

列表而不是循环的替代解决方案

ÝεDLm}˜sè

— 艾米尼亚
source

1

Perl 6，29个字节

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

测试一下

展开：

{  # 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)
}

— 布拉德·吉尔伯特b2gills
source

1

Ruby，34个字节

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

在线尝试！

— 国标
source

1

JavaScript，30个字节

-1个字节感谢Nahuel Fouilleul

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

在线尝试！

— FlipTack
source

-1字节反转测试f=(x,n=1)=>x>n?f(x-n,n+1):n**x

— Nahuel Fouilleul

@NahuelFouilleul当然，谢谢！

— FlipTack

0

Python 2，57字节

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

在线尝试！（0索引。）

0索引替代74字节长的版本。

— 乔纳森·弗雷奇
source

0

果冻， 15 12 字节

_{可能不是最佳的。}

-3感谢Outgolfer的高尔夫运动Erik。

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

在线尝试！

— 乔纳森·艾伦
source

哇，你今天一定很累。

— 暴民埃里克（Erik the Outgolfer）'17年

我真的病了！

— 乔纳森·艾伦

10

抱歉! 希望你能早日康复！

— Erik the Outgolfer

另外，这是我设法从中抽出的大约3个字节。

— Erik the Outgolfer '17年

0

J，20个字节

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

1索引

在线尝试！

— 加伦·伊万诺夫（Galen Ivanov）
source

0

APL + WIN，23个字节

(∊n↑¨⊂[2]n∘.*n←⍳n)[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

— 格雷厄姆
source

可以使用哪种APL语言？

— 暴民埃里克（Erik the Outgolfer）'17年

它是用APL + WIN编写的。我会在以后的任何答案中都明确说明这一点

— 格雷厄姆（Graham）

我∊从您的答复中取而代之↑,/。我不知道该功能。谢谢

— H.PWiz

@EriktheOutgolfer我认为这将适用于任何现代APL。

— 阿达姆（Adám）'17

0

SILOS，45个字节

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

在线尝试！

— 漏尼姑
source

0

Perl 5、30 + 1（-p）字节

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

在线尝试

— 纳韦尔·福耶勒（Nahuel Fouilleul）
source

0

Clojure 51字节

0索引，例如input 9返回256.0。

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

— 尼古妮
source

0

C 76，62字节

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

我基于此代码

在ideone上尝试

— 波尔卡王子
source

0

Pyt，39 37字节

1索引

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

说明：

简要地说，它计算每一行。如果请求的号码在该行中，则将其返回；否则，返回它。否则，请转到下一行。

— mudkip201
source

范围取整数的序列

测试用例

Python 3，39个字节

外壳，7个字节

说明：

Wolfram语言（Mathematica），32字节

R，40个字节

R（原始答案）42个字节

APL（Dyalog），15 13 10字节

果冻，7个字节

Haskell，30 28字节

玛特，9字节

说明

APL（Dyalog），14 12字节

Pyth，8个字节

05AB1E，9个字节

Perl 6，29个字节

展开：

Ruby，34个字节

JavaScript，30个字节

Python 2，57字节

果冻， 15 12 字节

J，20个字节

APL + WIN，23个字节

SILOS，45个字节

Perl 5、30 + 1（-p）字节

Clojure 51字节

C 76，62字节

Pyt，39 37字节