Kolakoski

Score: 108.27 (pass)

#!perl -l
($b,$a,$d)=@ARGV;do{push@l,split//,$b x($l[$c++]?$l[$c-1]:$b);($a,$b)=($b,$a)}while@l<$d;print@l[0..$d-1]

Score: 116.27 (pass)

#!perl -l
sub a{push@l,split//,$b x($l[$c++]?$l[$c-1]:$b);($a,$b)=($b,$a)}($b,$a,$d)=@ARGV;a;a while@l<$d;print@l[0..$d-1];