Kolakoski

Score: 77.25 (pass)

Constant run time. :)

#!perl -l
map{$s.=($a=$ARGV[$_%2])x(substr($s,$_,1)||$a)}0..999;print substr$s,0,pop

Score: 79.25 (pass)

#!perl -l
map{$a=$ARGV[$_%2];$s.=$a x(substr($s,$_,1)||$a)}0..999;print substr$s,0,pop

Score: 87.28 (pass)

#!perl -l
@A=@ARGV;map{$a=$A[$_%2];$s.=$a x(substr($s,$_,1)||$a)}0..pop;print substr$s,0,$A[2]

Score: 91.28 (pass)

#!perl -l
@A=@ARGV;map{$s.=$A[$w]x(substr($s,$_,1)||$A[$w]);$w=!$w}0..$A[2];print substr$s,0,$A[2]

Score: 98.27 (pass)

#!perl -l
@_=@ARGV;foreach$i(0..$_[2]){$_.=$_[$w]x(substr($_,$i,1)||$_[$w]);$w=!$w}print substr$_,0,$_[2]

Score: 140.30 (pass)

#!perl -l
@_=@ARGV;$_=$_[0]x$_[0].$_[1]x($_[0]-1?$_[0]:$_[1]);$i=2;while($i<$_[2]){$_.=$_[$w]x substr($_,$i,1);$i++;$w=!$w}print substr($_,0,$_[2])

Score: 146.29 (pass)

#!perl -l
@_=@ARGV;$_=$_[0]x$_[0].$_[1]x($_[0]-1?$_[0]:$_[1]);$i=2;while(length()<$_[2]){$_.=$_[$w]x substr($_,$i,1);$i++;$w=!$w}print substr($_,0,$_[2])

Score: 148.29 (pass)

#!perl -l
@_=@ARGV;$_=$_[0]x$_[0].$_[1]x($_[0]-1?$_[0]:$_[1]);$i=2;while(length()<$_[2]){$_.=$_[$w]x substr($_,$i,1);$i++;$w=1-$w;}print substr($_,0,$_[2])