Cantor

Score: 49.20 (pass)

#!perl -l
for$i(0..pop){$_.=$i?($"x length).$_:'-'}print

Score: 53.19 (pass)

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