将perl脚本重写为python

我从互联网上找到了这个perl脚本并试图在python中重写,但是无法做到.如果有人在perl和python中掌握,请帮助我.我希望python比perl更容易做到这一点.

谢谢

#!/usr/bin/perl
use Term::ANSIColor;
map(($yo=$_,map(( $y=$yo-$_/3,$l[24-$yo] .= (' ','$')[$y**2-20*$y+($_**2)/3<0]),    (0..30)),),(0..24));
print color('red');
print join("\n", map(reverse($_).$_, @l)), "\n";

输出:

              $$$$$$$$$        $$$$$$$$$
            $$$$$$$$$$$$$$  $$$$$$$$$$$$$$
          $$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$
          $$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$
         $$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$
         $$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$
         $$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$
         $$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$
          $$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$
          $$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$
           $$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$
            $$$$$$$$$$$$$$$$$$$$$$$$$$$$$$
            $$$$$$$$$$$$$$$$$$$$$$$$$$$$$$
             $$$$$$$$$$$$$$$$$$$$$$$$$$$$
              $$$$$$$$$$$$$$$$$$$$$$$$$$
               $$$$$$$$$$$$$$$$$$$$$$$$
                 $$$$$$$$$$$$$$$$$$$$
                  $$$$$$$$$$$$$$$$$$
                    $$$$$$$$$$$$$$
                      $$$$$$$$$$
                        $$$$$$

Hunter McMil.. 5

Perl和Python都是动态语言并且共享许多类似的内置函数,这个Perl代码中使用的每个函数和/或运算符都在Python中有一个直接映射:

Op/Function     Perl     Python
                ---------------
 map            map      map()
 exponentiation **       **
 reverse        reverse  reverse()
 concatenation  .        +
 range          x .. y   range(x, y+1)

这应该是以同样的方式解决问题的所有物理部分,你必须逐步完成每一行才能真正理解正在发生的事情.

此外,您永远不会显示@l定义的位置.