Cantor

Score: 45.22 (pass)

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

Score: 46.26 (fail)

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

Score: 47.26 (pass)

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

Score: 49.27 (pass)

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

Score: 49.27 (pass)

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