Cantor

Score: 49.22 (pass)

#!perl -l
$_="-";$_.=" "x y///c.$_ while$ARGV[0]--;print

Score: 52.19 (pass)

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