Perl golf:打印数字的力量

Question

什么是最短的Perl单行打印出硬编码的2位十进制的前9个幂(例如,.37),每个都在自己的行上？

输出看起来像:

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用"说"来尝试明显的改进,但这是28:

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