Cantor

Score: 49.18 (pass)

#!perl -l
s//-/;$_.=' 'x3**$i++.$_ while$ARGV[0]--;print

Score: 51.18 (pass)

#!perl -l
s//-/;$_.=' 'x length().$_ while$ARGV[0]--;print

Score: 52.19 (pass)

#!perl -l
$_='-';$_.=(' 'x length).$_ while$ARGV[0]--;print

Score: 52.19 (pass)

#!perl -l
$_='-';$_.=(' 'x length).$_ while$ARGV[0]--;print

Score: 53.19 (pass)

#!perl -l
$_='-';$_.=(' 'x length).$_ while $ARGV[0]--;print

Score: 60.22 (pass)

#!perl -l
$s='-';$s.=(' 'x length($s)).$s for(1..$ARGV[0]);print $s