Cantor

Score: 36.18 (pass)

There are beginners beating me!! AIEEEE!

#!perl
s//-
/;eval's/./$& $&/g;'x pop;print

Score: 38.18 (pass)

still six strokes to go on this, and I have no idea where to start with kola.

#!perl -l
s//-/;eval's/./$& $&/g;'x pop;print

Score: 40.20 (pass)

sorry, ref! jumped the gun a bit.

#!perl -l
s//-/;for$a(1..pop){s/./$& $&/g}print

Score: 41.22 (pass)

sheesh, and this is probably the simplest way to do it

#!perl -l
$_='-';for$a(1..pop){s/./$& $&/g}print

Score: 43.21 (pass)

a full night's sleep, and this is the best I can come up with?

#!perl -l
map$a.=$"x3**--$_.$a||'-',0..pop;print$a

Score: 44.20 (pass)

the laws of diminishing returns should be this harsh this early

#!perl -l
map$a.=' 'x3**--$_.$a||'-',0..pop;print$a

Score: 45.22 (pass)

forgot about y///c from (my first) golf compo

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

Score: 49.20 (pass)

still 10 off leader.. hmmmm

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

Score: 59.19 (pass)

I refuse to be filmed!

#!perl -l
$_='-';for$a(1..pop){s|.*|$&.' 'x length($&).$&|e};print

Score: 69.19 (pass)

first go

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