Kolakoski

Score: 59.14 (pass)

Still better tie-score.

#!perl
s/.?/$ARGV[$|--]x($&||1)/eguntil$|=/.{$ARGV[2]}/;print"$&
"

Score: 59.16 (pass)

Hmm. Yet another obvious optimization, rick below my nose and I almost didn't see it.

#!perl
$_.=1,s/./$ARGV[$|--]x$&/eguntil$|=/.{$ARGV[2]}/;print"$&
"

Score: 64.19 (pass)

Resubmit, accidentally left stupid \n in the previous one. I was probably too happy for reaching below 100 Club.

#!perl
$_.=1,s/./$ARGV[$|--]x$&/eguntil$|=s/(.{$ARGV[2]}).*/$1
/s;print

Score: 65.20 (pass)

#!perl
$_.=1,s/./$ARGV[$|--]x$&/eguntil$|=s/(.{$ARGV[2]}).*/$1\n/s;print

Score: 68.18 (pass)

#!perl -l
push@,,($.=$ARGV[$_%2])x($,[$_]||$.)for 0..$;print@,[0..pop()-1]

Score: 69.20 (pass)

To S. Zhels mail: Oh, sorry, I didn't think of that case. I fixed my version of tpr03.pl to include case [ "1 2 500", "12211212212211211221211212211211212212211212212112112212211212212211211212212112212211212212211211221211212212211211212211211221211211221221121221211221221211211221221121221211211221211212211211212212112212211212212211211212211211221221211212211211221211211221221211212211211212212211212212112112212212112212211212212211211221211212212211212212112212211211212212211212212112212212112122112112212212112112212112122122112112212112112212212112122112112212212112212211212212211211221211212211211212212211\n" ], so that I no longer send faulty entries. This entry I send is just a basic fix for prob: 332 instead of $^H.

#!perl -l
push@,,($.=$ARGV[$_%2])x($,[$_]||$.)for 0..332;print@,[0..pop()-1]

Score: 69.23 (pass)

#!perl -l
@_=(map{(@ARGV[$.++&1])x$_}@_,$.=2)[0..$ARGV[2]-1]for%{::};print@_

Score: 74.25 (fail)

#!perl -l
push@a,($ARGV[$_%2])x($a[$_]||$ARGV[$_%2])for 0..$;print@a[0..pop()-1]