Cantor

Score: 50.26 (pass)

#!perl -l
$o='-';$o.=' 'x 3**($_-1).$o for 1..pop;print$o

Score: 51.23 (pass)

#!perl
$o='-';$o.=' 'x length($o).$o for 1..pop;print"$o
"