Cantor

Score: 42.21 (pass)

It's short and somewhat elegant.

#!perl
$_="-\n";for$i(1..shift){s/./$& $&/g}print