Perl Golf：打印数字的幂答案

【问题标题】：Perl golf: Print the powers of a numberPerl Golf：打印数字的幂
【发布时间】：2010-09-17 15:02:35
【问题描述】：

什么是最短的 Perl 单行，它打印出硬编码的 2 位小数的前 9 次幂（例如，0.37），每行都在自己的行上？

输出类似于：

1
0.37
0.1369
[etc.]

官方 Perl 高尔夫规则：

【问题讨论】：

【解决方案1】：

使用 perl 5.10.0 及更高版本：

perl -E'say 0.37**$_ for 0..8'

对于较旧的 perls，您没有 say 和 -E，但这有效：

perl -le'print 0.37**$_ for 0..8'

更新：第一个解决方案由 30 次击键组成。删除第一个 0 得到 29。可以节省另一个空间，所以我的最终解决方案是 28 笔划：

perl -E'say.37**$_ for 0..8'

【讨论】：

【解决方案2】：

perl -le'map{print.37**$_}0..8'

31 个字符 - 我没有 5.10 来尝试使用“说”的明显改进，但这是 28：

perl -E'map{say.37**$_}0..8'

【讨论】：

【解决方案3】：

seq 9|perl -nE'say.37**$_'

26 - 是的，那是作弊。（是的，我正在做从 1 到 9 的幂。0 到 8 只是愚蠢的。）

【讨论】：

【解决方案4】：

在 Perl 6 中只是为了好玩：

（至少基于当前的空白规则。）

【讨论】：

【解决方案5】：

perl -e 'print .37**$_,"\n" for 0..9'

如果将 -l 添加到选项中，则可以跳过“\n”部分

【讨论】：

【解决方案6】：

print join("\n", map { 0.37**$_ } (0..9));

【讨论】：

【解决方案7】：

print.37**$_.$/for 0..8

如果您在提交之前将程序截断，则为 23 笔。 :-P

【讨论】：

【解决方案8】：

perl -e "for(my $i = 1; $i < 10; $i++){ print((.37**$i). \"\n\"); }"

只是一个快速输入。 :)

固定到换行符！

【讨论】：