Kolakoski

Score: 70.26 (pass)

#!perl -l
print map{push@v,($_)x($v[0]||$_);shift@v}map$ARGV[$_%2^1],(1..pop)

Score: 73.29 (pass)

#!perl -l
@c=@ARGV;print map{push@v,($d=$c[$_%2])x($v[0]||$d);shift@v}0..$c[2]-1

Score: 75.29 (pass)

#!perl -l
@c=@ARGV;print map{push@v,($d=$c[$_%2])x(@v?$v[0]:$d);shift@v}0..$c[2]-1