Cantor

Score: 50.24 (pass)

why'd I use an array before?

#!perl -l
$x="-";for(1..pop){$x=$x." "x3**--$_.$x}print$x

Score: 71.26 (pass)

oops, this is correct

#!perl -l
$x[0]="-";for(1..pop){$x[$_]=$x[-1]." "x3**($_-1).$x[-1]}print$x[-1]

Score: 76.26 (pass)

Well, I learned how to use substr, then decided not to use it anyway. Oh, well.

#!perl -l
$x[0]="-";for(1..pop){$x[$_]=$x[-1]." "x(length$x[-1]).$x[-1]}print$x[-1]

Score: 78.24 (fail)

#!perl -switches
$x[0]="-";for(1..pop){$x[$_]=$x[-1]." "x3**($_-1).$x[-1]}print$x[-1]