Cantor

Score: 46.22 (pass)

#!perl -l
for$n(0..- s//-/+pop){$_.=$"x3**$n.$_}print

Score: 47.23 (pass)

#!perl -l
s//-/;for$n(0..-1+pop){$_.=$"x3**$n.$_}print

Score: 50.25 (pass)

#!perl -l
$a='-';$a.=' 'x3**$_.$a for(0..-1+pop);print$a;