Perl Golf：打印数字的幂

Question

打印出硬编码的 2 位小数的前 9 次幂（例如 0.37）的最短 Perl 一行代码是什么？每行都占一行？

输出将类似于：

1
0.37
0.1369
[etc.]

官方 Perl 高尔夫规则：

1. 最小数量的（键）击球获胜
2. 您的击球计数包括命令行

Answer 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'

Answer 2

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

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

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

Answer 3

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

26 - 是的，那是作弊。 （是的，我正在做 1 到 9 的幂。0 到 8 太傻了。）

Answer 4

只是为了玩 Perl 6：

1. 28 个字符：

   perl6 -e'.say for .37»**»^9' 
     

2. 27 个字符：

   perl6 -e'say .37**$_ for ^9' 
     

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

Answer 5

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

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

Answer 6

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

Answer 7

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

提交前砍程序的话23招。 :-P

Answer 8

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

只需快速输入即可。 :)

修复换行问题！