En réponse à Prakash Kailasa <[EMAIL PROTECTED]>:
> On Tue, Feb 19, 2002 at 01:27:52AM +0100, Philippe 'BooK' Bruhat wrote:
> >
> > #!/usr/bin/perl -l
> > print{1,1,A,360,B,47,Z,46655}->{+pop}
>
> This would fail the test program. You need to change it to:
>
> #!/usr/bin/perl -l
> print{1,1,A0,360,'1B',47,ZZZ,46655}->{+pop}
>
> which would make it 46 chars.
Actually, that's what I sent to the judges (which they refused).
I rewrote it quicly when answering Stephen's email, but forgot to try it
against the test program, trusting what my eyes read in his "entry".
Anyway, 46 is still better than my best "legal" shot. ;-)
> Stephen's "cheating" works because he is using regexes and the base36
> values in the test program favored his approach so he could manage
> with single character regexes.
Yep. Note to self: think before you post!
--
Philippe BRUHAT - BooK
When you run from your problem, you make it that much harder for good
fortune to catch you, as well. (Moral from Groo The Wanderer #14 (Epic))
