Cantor

Score: 43.23 (pass)

#!perl -l
$a='-';$a.=$".$a,$"x=3for 1..pop;print$a

Score: 47.23 (pass)

#!perl -l
@s='-';@s=(@s,$",@s),$"x=3for 1..pop;print@s

Score: 52.19 (pass)

#!perl -l
s//-/;for$a(1..pop){s/.*/$&.$"x3**--$a.$&/e}print

Score: 59.25 (pass)

#!perl -l
sub _{my$v=pop;$v--?_($v).$"x3**$v._($v):'-'}print _ pop