Kolakoski

Score: 80.31 (pass)

#!perl -l
@A=@ARGV;push@a,($A[$_%2])x($a[$_]||$A[$_%2])for 0..$A[2];print@a[0..$A[2]-1]

Score: 80.31 (pass)

#!perl -l
@A=@ARGV;$z=$A[$_%2],push@a,($z)x($a[$_]||$z)for 0..$A[2];print@a[0..$A[2]-1]

Score: 86.28 (pass)

#!perl -l
($b,$a,$c)=@ARGV;push@a,($a)x(($a,$b)=($b,$a),$a[$_]||$a)for 0..$c;print@a[0..$c-1]

Score: 90.27 (pass)

#!perl -l
($b,$a,$c)=@ARGV;push@a,($a)x(($a,$b)=($b,$a),$a[$i++]||$a)while $c>@a;print@a[0..$c-1]

Score: 93.26 (pass)

#!perl -l
($a,$b,$c)=@ARGV;while($#a<$c){push@a,($a)x($a[$i++]||$a);($a,$b)=($b,$a)}print@a[0..$c-1]

Score: 98.26 (pass)

#!perl -l
($a,$b,$c)=@ARGV;while($#a<$c){push@a,$a for 1..($a[$i++]||$a);($a,$b)=($b,$a)}print@a[0..$c-1]