Cantor

Score: 47.24 (pass)

The test programme accepts scores without #! lines. Why must I use them here?

#!perl
$s='-';map$s.=' 'x3**$_.$s,0..-1+pop;print"$s
"

Score: 52.23 (pass)

#!perl -l
$s="-";$s.=' 'x length($s).$s for(1..pop);print$s

Score: 53.25 (pass)

Warning: This is absurdly slow when run with "8" as the argument, but still meets the critera of finishing and not using much memory.

#!perl -l
/[3-9]/ or$k.=/1/?' ':'-'for 0..-1+10**pop;print$k