Cantor

Score: 44.20 (pass)

#!perl -l
for$,(0..pop){$_.=$"x y///c.$_||"-"}print

Score: 44.27 (fail)

#!perl -l
@x="-";push@x,$"x@x,@x for 1..pop;print@x

Score: 45.24 (pass)

#!perl -l
$_='-';eval'$_.=" "x y///c.$_;'x pop;print

Score: 46.24 (pass)

#!perl -l
$_='-';for$,(1..pop){$_.=$"x y///c.$_}print

Score: 48.23 (pass)

#!perl -l
$_='-';for$,(1..pop){$_.=' 'x(y///c).$_}print

Score: 53.14 (pass)

Thanks for running this.

#!perl -l
$*='-';$*.=' 'x length($*).$*for(1..shift);print$*