Kolakoski

Score: 81.27 (pass)

#!perl -l
@K=@ARGV;for$i(0..500){for(1..$K[$i]){$K[$p++]=$ARGV[$i%2]}}print@K[0..-1+pop]

Score: 82.26 (pass)

#!perl -l
@K=@ARGV;for$i(0..500){for(1..$K[$i]){$K[$p++]=$ARGV[$i%2]}}print@K[0..(pop)-1]

Score: 83.26 (pass)

#!perl -l
@K=@ARGV;for $i(0..500){for(1..$K[$i]){$K[$p++]=$ARGV[$i%2]}}print@K[0..(pop)-1]

Score: 144.28 (pass)

#!perl
($a,$b,$g)=@ARGV;@l=split'',($a x$a);k($b,$a,1);print@l[0..$g-1],"
";sub k{($z,$x,$c)=@_;if($#l<$g){for(1..$l[$c]||$z){push@l,$z}k($x,$z,$c+1)}}