Cantor

Score: 47.21 (pass)

#!perl -l
for$a(0..pop){y/-/ /;$_=$z.=$_.$z||'-'}print

Score: 56.21 (pass)

#!perl -l
$n=pop;$_='-';while($w<$n){$_.=(' 'x3**$w++).$_}print