将perl脚本重写为python [关闭]

Question

关闭。 这个问题是题外话。 它当前不接受答案。 了解更多 。

---

想改善这个问题吗？ 更新问题 ，使其成为Stack Overflow 的主题 。

5年前关闭。

我从互联网上找到了这个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";

输出：

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

Answer 1

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

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

实际上，这应该是解决问题的所有物理方法，您将必须逐步完成每一行才能真正了解正在发生的事情。

同样，您永远也不会显示@l的定义位置。

Answer 2

阅读了Hunter McMillen的答案后，我将OP的perl代码转换为python。

l = [''] * 25
for yo in range(25):
    for x in range(31):
        y = yo - x / 3
        l[24 - yo] += (' ', '$')[y**2 - 20*y + (x**2) / 3 < 0]

print('\n'.join(line[::-1] + line for line in l))

我在转换代码时注意到的perl / python之间的其他区别。

• 在perl中，您可以访问未定义的变量： $l .= ... 但这在Python中是不允许的。 应该事先定义。
  • 访问列表边界会导致python中的IndexError 。 应该事先分配。
• 在perl中， $_是隐式定义的。 map为每个要迭代的项目设置它。
• reverse在Perl返回的反向列表，而reversed在Python返回迭代器。 所以我改用[::-1] 。
• Perl中的1/2 （至少在版本5.14中）产生0.5 。 在Python 2.x中，它产生0 （底数除法）。 在Python 3.x中，它产生0.5 （真除法）； 如果使用Python 2.x运行此代码，则结果会略有不同。 见http://asciinema.org/a/6681

---

顺便说一句，这打印黑色的心而不是红色的心;）