Kolakoski

Score: 64.16 (pass)

#!perl -li1
map{push@,,$ARGV[$^I^=!$h];($h||=$,[$m++])--}1..pop;print@,

Score: 66.21 (fail)

Funny algo :)

#!perl -l
print map{-@,+push@,,($h=$ARGV[1&$p])x($p++?$,[$p-1]:$h)}1..pop

Score: 78.21 (pass)

#!perl -l
($a,$p,$l)=@ARGV;map{push@,,($u^=!$h)?$a:$p;($h||=$,[$m++])--}1..$l;print@,

Score: 80.24 (fail)

#!perl -l
($a,$b,$l)=@ARGV;map{push@,,($u^=1>$c)?$a:$b;$c=$,[$z++]-1if!$c}1..$l;print@,

Score: 81.23 (pass)

#!perl -l
($a,$p,$l)=@ARGV;map{push@,,($u^=!$c)?$a:$p;$c=$,[$z++]-1if!$c--}1..$l;print@,

Score: 82.24 (pass)

Sorry, last solution submitted was an error !

#!perl -l
($a,$b,$l)=@ARGV;map{push@,,($u^=1>$c)?$a:$b;$c=$,[$z++]-1if!$c--}1..$l;print@,

Score: 83.25 (pass)

#!perl -l
($a,$b,$l)=@ARGV;map{push@,,($u^=1>$c)?$a:$b;$c=($c?$c:$,[$z++])-1}1..$l;print@,

Score: 106.26 (pass)

#!perl -l
($a,$b,$e)=@ARGV;for$g(1..$e){/$r(.)?/;$r=$&;$_.=($l=$a)x(!$1?$r=$a:$1);$a=$b;$b=$l}print substr$_,0,$e