Kolakoski

Score: 107.30 (pass)

#!perl -l
($a,$b,$c)=@ARGV;$o=$a x$a.$b x($a>1?$a:$b);$o.=$ARGV[$_%2]x substr$o,$_,1 for 2..$c;print substr$o,0,$c

Score: 113.31 (pass)

#!perl -l
($a,$b,$c)=@ARGV;$o=$a>1?$a x$a:$a.$b x$b;$o.=$ARGV[$_%2]x substr$o,$_,1 for($a>1?1:2)..$c;print substr$o,0,$c

Score: 122.31 (pass)

#!perl
($a,$b,$c)=@a=@ARGV;$o=$a>1?$a x$a:$a.$b x$b;$j=$a>1?1:2;$o.=$a[$_%2]x substr($o,$_,1)for$j..$c;print substr($o,0,$c),"
";