Kolakoski

Score: 93.24 (pass)

#!perl
($a,$b,$n)=@ARGV;$b^=$k=$a;$k||($a^=$b,$k=$R[++$p]||$a),(push@R,$a),$k--while$n--;print@R,'
'

Score: 107.24 (pass)

#!perl
($a,$b,$n)=@ARGV;$k=$a;$b^=$a;while($n--){if(!$k){$a^=$b;$k=$B[++$p]||$a;}push@B,$a;$k--;}$"='';print"@B\n"

Score: 113.24 (pass)

#!perl
@A=@ARGV;$k=$A[0];$p=1;while($A[2]--){if(!$k){$i ^=1;$k=$B[$p++]||$A[$i];}push @B,$A[$i];$k--;}$"='';print "@B\n"