Mtv Europe wrote: > > Hello Eugene! > > [EMAIL PROTECTED] (Eugene Van Der Pijll) wrote: > > Kolakoski: Rick Klement (54.25) > > Mtv Europe (56.18) > > Rick Klement (57.20) > > Marko Nippula (69.23) > > Philippe 'BooK' Bruhat (87.21) > > Jerome Quelin (2255.06) > > > > I'd like to invite the authors of these solutions to explain these > > solutions to the public, or at least the original bits. > > Ok, since all others explain their solutions already, > now you'll have to listen my bad English. > > As you can see, I start with 66.27 straightforward array manipulations: > > push@a,($j=$ARGV[$_&1])x($a[$_]||$j)for@b=0..-1+pop;print@a[@b],$/ > > Then I play for a while with algorithm that wasn't mentioned > here before and wasn't used by players as far as I know, so > I tell more about it: > > -l $.=$_.=$ARGV[$.=~s/(.)\1*/length$&/eg%2-!/^$./]for($_)x pop;print
I submitted a slightly similar (I think) solution in the unorthodox section. -l eval'$l=@a;map$l-=$_*!!$l,@a;push@a,$d=$ARGV[!!$l^$d==$ARGV[0]];'x pop;print@a but I can't get this below 79, and your final solution using this method seems odd, and I'll have to examine it for a little while to see why it works. Jasper -- Neil, is it really necessary to nail the plates to the table? What happens when we want to play Monopoly? Go directly to plate? Do not pass plate nailed to the table by a stupid hippie? - Vyvyan