Cantor

Score: 43.23 (pass)

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

Score: 46.24 (pass)

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

Score: 47.26 (pass)

#!perl -l
@_='-';@_=(@_,(' ')x@_,@_)for 1..pop;print@_