develooper Front page | perl.fwp | Postings from February 2002

Re: TPR0 Final Results

Thread Previous | Thread Next
From:
Philippe 'BooK' Bruhat
Date:
February 19, 2002 06:51
Subject:
Re: TPR0 Final Results
Message ID:
1014130295.3c72667791ae9@imp.free.fr
En réponse à Prakash Kailasa <pkailasa@seisint.com>:

> 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))

Thread Previous | Thread Next


nntp.perl.org: Perl Programming lists via nntp and http.
Comments to Ask Bjørn Hansen at ask@perl.org | Group listing | About