Kolakoski

Score: 83.27 (pass)

#!perl -l
@a=@ARGV;map{$/=$a[$_%2];push@d,$/for 1..$d[$_]||$/}0..$a[2];print@d[0..$a[2]-1]

Score: 95.27 (pass)

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