Kolakoski

Score: 66.23 (pass)

#!perl -l
push@r,($/=$ARGV[1&$i])x($s[$i++]=$r[$i]||$/)for 1..pop;print@s

Score: 67.24 (pass)

#!perl -l
push@r,($/=$ARGV[1&$_])x($s[$_]=$r[$_]||$/)for 0..-1+pop;print@s

Score: 68.24 (pass)

#!perl -l
push@r,($/=$ARGV[1&$_])x($r[$_]||$/)for 0..333;print@r[0..-1+pop]

Score: 69.27 (pass)

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

Score: 72.27 (pass)

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

Score: 83.30 (pass)

#!perl -l
($c,$b,$n)=@A=@ARGV;$c=(@r=(@r,($A[~$_&1])x$c),$b)[$_]for 1..$n;print@r[0..$n-1]

Score: 84.29 (pass)

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

Score: 87.28 (pass)

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

Score: 93.26 (pass)

#!perl -l
$n=pop;($c)=@A=@ARGV;while($r<$n){$_.=$A[$r++%2]x$c;$c=substr$_.$A[1],$r,1}/.{$n}/;print$&

Score: 103.27 (pass)

#!perl -l
@A=@ARGV;$r=$A[0]<2;$_=$r.$A[$r]x$A[$r];/.{$r}(.)/,$_.=$A[$r%2]x$1while++$r<$A[2];/.{$A[2]}/;print$&

Score: 118.27 (pass)

#!perl -l
$n=pop;@A=@ARGV;@A=(pop,1),$r=1if$A[0]==1;$_=$r.$A[0]x$A[0];/.{$r}(.)/,$_.=$A[$t^=1]x$1while++$r<$n;/.{$n}/;print$&

Score: 129.26 (pass)

#!perl -l
($a,$b,$n)=@ARGV;$_=$a x$a;if($a==1){$_=$a.$b x$b;$t=1;$i=1};/.{$i}(.)/,$_.=(($t^=1)?$b:$a)x$1while($i++<$n);/(.{$n})/;print$1

Score: 130.27 (pass)

#!perl -l
($a,$b,$n)=@ARGV;$_=$a x$a;if($a==1){$_=$a.$b x$b;$t=1;$i=1};/.{$i}(.)/,$_.=(($t^=1)?$b:$a)x$1while($i++<$n);/(.{$n})/;print$1;