Cantor

Score: 42.19 (pass)

#!perl -l
s//-/;[sort{s/./$& $&/g;0}0..pop];print

Score: 57.18 (pass)

#!perl -l
$_='-';s/.*/$&.' 'x(length).$&/e while$ARGV[0]--;print

Score: 65.25 (pass)

#!perl -l
$_='-'x 3**pop;1while s/(-+)\1\1/$1.' 'x(length$1).$1/ge;print