Kolakoski

Score: 86.12 (pass)

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

Score: 89.26 (pass)

#!perl
($a,$b,$c)=@ARGV;for(0..$c){push@_,($a)x($_[$_]||$a);($a,$b)=($b,$a)}print@_[0..$c-1],"
"