Kolakoski

Score: 82.26 (pass)

#!perl -l
@d=@ARGV;while($d[2]--){$b[$n++]=$d[$m%2];if($i++==$b[$m]-1){$i=0;$m++}}print@b

Score: 88.24 (pass)

#!perl -l
@d=@ARGV;$==pop@d;while($=--){$b[$n++]=$d[$m%2];if($i++==$b[$m]-1){$i=0;$m++}}print@b

Score: 95.23 (pass)

#!perl -l
@d=@ARGV;$==pop@d;while($=--){$b[$n++]=$d[$c%2];if(($i++)==$b[$m]-1){$i=0;$m++;$c++}}print@b

Score: 104.25 (pass)

#!perl
@d=@ARGV;$m=($l=pop@d)-1;while($l--){print($b[$l]=$d[$c%2]);if(($i++)==$b[$m]-1){$i=0;$m--;$c++}}print$/

Score: 105.24 (pass)

#!perl
@d=@ARGV;$m=($l=pop@d)-1;while($l--){print($b[$l]=$d[$c%2]);if(($i++)==$b[$m]-1){$i=0;$m--;$c++;}}print$/

Score: 110.25 (pass)

#!perl
@d=@ARGV;$m=($l=$d[2])-1;while($l--){print($b[$l]=$d[$c]);if(($i++)==$b[$m]-1){$i=0;$m--;$c=($c?0:1);}}print$/

Score: 114.25 (pass)

#!perl
($j,$k,$l)=@ARGV;$m=$l-1;while($l--){print($b[$l]=($c?$k:$j));if(($i++)==$b[$m]-1){$i=0;$m--;$c=($c?0:1);}}print$/

Score: 123.26 (pass)

#!perl
$l=pop;$k=pop;$j=pop;$m=$l-1;$c=0;while($l--){print($b[$l]=($c?$k:$j));if(($i++)==$b[$m]-1){$i=0;$m--;$c=($c?0:1);}}print$/