Kolakoski

Score: 95.25 (pass)

#!perl
b:if(@b==$ARGV[2]){print@b,"
";exit}push @b,$ARGV[$i%2];$k++;$k<$b[$i]&&goto b;$k=0;$i++;goto b

Score: 98.25 (pass)

#!perl
b:if(@b==$ARGV[2]){print@b,"
";exit}push @b,$ARGV[$i%2];$k++;if($k<$b[$i]){goto b}$k=0;$i++;goto b

Score: 112.25 (pass)

#!perl
@a=@ARGV;while($i<500){push@b,$a[$i%2];$k=$b[$i]-1;while($k--){push@b,$a[$i%2]}$i++}print splice(@b,0,$a[2]),"
"