Front page | perl.fwp |
Postings from March 2002
Re: TPR1 post-mortem
Thread Previous
|
Thread Next
From:
Rick Klement
Date:
March 9, 2002 08:25
Subject:
Re: TPR1 post-mortem
Message ID:
3C8A379E.9B839AD4@pacbell.net
Ton Hospel wrote:
>
> In article <a6913g$k06$1@post.home.lunix>,
> fun_with_perl@ton.iguana.be (Ton Hospel) writes:
> > Mm, I'm not sure all last results were processed, but the post-mortem
> > is on the site, so here we go.
> >
> > MTV was very close I see. With a simple transformation he's at 47:
> >
> > -l $_=pop;s;.;print,s,,$&*1.11%10if/\G../,eg;eg
>
> And here's a 46:
> -l $_=pop;s;.;print,s,,$&*1.11%10if/../g,eg;eg
And a 46 with a better tiebreaker value:
-l $_=pop;s;.;print,s,,/../g&&$&*1.11%10,eg;eg
since the precedence problem that needed the 'if' construct
is no longer there.
--
Rick Klement
Thread Previous
|
Thread Next