Cantor

Score: 46.17 (pass)

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

Score: 46.20 (pass)

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