Dave Hoover wrote:
>
> Speaking of prizes, I don't think we'll have much of a problem with
> that going forward...we just secured O'Reilly as a sponsor! With
> both ORA and ActiveState contributing prizes (bumper stickers, t-
> shirts, and *books*)starting next month, we'll probably need a new
Steffen Mueller wrote:
> "Yanick" <[EMAIL PROTECTED]> schrieb im Newsbeitrag
> [EMAIL PROTECTED]">news:[EMAIL PROTECTED]...
> | The long-awaited golfer cards (collect them all!) are available at
> | http://babyl.dyndns.org/golf/book.xml
> |
> | If someone wants to have personal info, you are welco
% 60; $time_left -= $sec;
my $min = ($time_left /= 60) % 60; $time_left -= $min;
my $hour = ($time_left /= 60) % 24; $time_left -= $hour;
my $day = $time_left / 24 ;
Chris Dolan
Jonathan E. Paton wrote:
I looked on Google and cpan.org to see if there'd been
a "Shortest JAPH" thread, but didn't find one. For the
sake of clarity, the Japh I have in mind is the canonical
one originated by Randal Schwarts, which is equivalent to:
print 'Just another
Adam Spiers wrote:
> Jonathan E. Paton ([EMAIL PROTECTED]) wrote:
>
>>>further shaving, though it's all lowercase.
>>>perldoc perlfaq1: What is a JAPH?
>>>
>>>print`perldoc -qj`=~/"(j.*)"/
>>
>>print`perldoc -qj`=~/(j.*)"/
>
>
> print`$^Xdoc -qj`=~/(j.*)"/
>
> where ^X is a raw ^X, of course.
Dave Hoover wrote:
> Andrew wrote:
>
>>At the risk of being called a SPOILER, I feel the
>>current tournament schedule is not sustainable in
>>the long term. It is putting too much strain on too
>>many people (who I happen to like :) and I don't
>>want to see any more people rushed to hospital wi
Karger, Amir wrote:
>
> I have to agree with Andrew here.
>
> As an earthling, I've got only four eyes, and having one explode each month means
>I'm going to run out of eyes soon. Two months might give me some recuperating time.
>
> Part of this is due to personal weakness: I don't think I cou
[EMAIL PROTECTED] wrote:
>>-Original Message-
>>From: Ryan Russell [mailto:[EMAIL PROTECTED]]
>>Newbie question, why does it only add 3 characters? I would
>>have to add
>>,"\n" (5) with what (little) I know. Wait...
>>print"$n\n"
>>OK, so 4 then.
>
> print$n.$\
or
#perl -l
print$n
o
Stephen Turner wrote:
>
> One advantage of having a longer hole sometimes is that you can try things
> which would never get a look in when you only had 45 characters to play
> with.
>
I strongly agree. I've already given up on this hole 4-5 times, but I
keep coming back to it with strange ide
Stefan `Sec` Zehl wrote:
> On Fri, Jun 07, 2002 at 10:14:57AM +0100, Piers Cawley wrote:
>
>>Actually, it let me post that one, but I just had a minor epiphany and
>>got down to 207.32 and I can't bloody post it again. Not exactly in
>>your class admittedly, but edging closer to the 'magic' 200.
Stephen Turner wrote:
>
> I wonder if the judges next month would consider starting the tournament at
> a different time of day. I don't think it makes any difference to the
> fairness of the play, but it does make a difference to the fairness of the
> post-mortem! At the moment, all the American
Hey! I'm not an alien! My convincing evidence:
* I was born three years before "the incident"
* I didn't even know about Perl Golf before TPR(0,2)
* I scored above 200 in TPR(0,4)
* Heck, even `/anick beat me in TPR(0,4)
* I've studied Mars, I didn't like it
(www.astro.wisc.edu/~dolan/Planets
Ton Hospel wrote:
> In article <[EMAIL PROTECTED]>,
> Chris Dolan <[EMAIL PROTECTED]> writes:
>
>>Hey! I'm not an alien! My convincing evidence:
>>
>>* I was born three years before "the incident"
>
>
> Something must hav
135 for me.
Chris
[EMAIL PROTECTED] wrote:
> And for the people who really can't stop:
>
> http://www.xs4all.nl/~thospel/golf/midigolf1.html
>
> however, do NOT post solutions on the list, only say how many strokes you
> have. This one is still in progress and we don't want it spoiled.
>
> (i
my 45:
#!perl -p
y/!b/
/;s#\d+.#$&x map{(1)x$_}$&=~/./g#eg
Julien Quint wrote:
> On Mon, Jul 08, 2002 at 06:36:07PM +0200, Eugene van der Pijll wrote:
>
>>This course was very interesting (though I didn't like it at first,
>>stuck at about 180), because of the many different algorithms used, but
>>also the number of different ways of die'ing. Here are so
(replying to myself)
Chris Dolan wrote:
>
> Hmm, how about do$_ ??
>
My bad. It looks like this does NOT die, but just returns a no-op if $_
is not a valid file.
Chris
Dave Hoover wrote:
> Ala wrote:
>
>>Should the golf tournaments still be called 'TPR golf' even if they don't
>>have much to do with TPR anymore? Perhaps a change of name is needed here
>>(not that it matters much).
>
> You're right that it doesn't matter much. Do you have any suggestions
> fo
My favorite solution was by Jukka Suomela at 97.47. No disrespect
intended toward Ton et al., but I think Jukka's approach is the most
clever and interesting in the competition. My explanation is below.
-alp
($_,my$y)=map{bless$x{$_}||=[$_]}@F;$_-$y&&push@$_,$y}DESTROY{$d?dump:print$_[0][0]}{$d
Attached is a test script which allows either zero or one as the
starting number:
tritest.pl
e.g.:
perl tritest.pl 0 tri_0.pl
or
perl tritest.pl 1 tri_1.pl
My current score (which I hope to improve) is
0: 56
1: 54
Chris
Phil Carmody wrote:
> --- Jasper McCrea <[EMAIL PROTECTED
Chris Dolan wrote:
>
> My current score (which I hope to improve) is
> 0: 56
> 1: 54
>
Hope fulfilled:
0: 49
1: 49
That's about as low as I can go with my current approach.
Chris
Add your solutions to this list
Zero-based
45 Chris Dolan
-l s/\d+/$&+$'/eg,s/^/1 /for($_=1)x+pop;print
49 Chris Dolan (non-regex)
map$x/=@_=(1,map$_+$_[++$x],@_),0..pop;print"@_
"
81 Chris Dolan (factorials)
@_=map{$t=$n;$a=1;$a*=$t--/($n-$t)while$t>$_&a
Eugene van der Pijll wrote:
>
> 36, for both. However, my solution doesn't comply to one of the standard
> rules of the TPR courses, and I can't test it. But it should work.
>
> (This is one of the challenges I consired and discarded for the May
> contest, so I've thought about this already then
Phil Carmody wrote:
>
> What is
> @{[ ... ]}
> ?
>
> It's not in perlsyn, perlop, perlvar ...
>
It's like this:
$ref = [$w=1,map$w*=$_/--$;,-pop..-1];
print "@$ref\n";
only with an anonymous array reference and dereference. I keep
forgetting about that one, too. It would have helped mos
Yanick wrote:
> On Wed, Sep 18, 2002 at 12:09:18AM +1000, [EMAIL PROTECTED] wrote:
>
>>I have not seriously tried the 100 meter dash, but this
>>one should be a little faster:
>>
>>#!perl -n
>>/^192\.(?:9|18|29)\./||/(?i:gif|jpg|css) HTTP/ or print
>
>
> /^192\.(?:9|18|29)\./||/(gif|jpg|css|G
e wrote:
As a humble spectator of this spine-tingling golfing theatre,
I am amused in the extreme by this:
10 63.53 Amir Karger
10 63.53 Chris Dolan
Mr Referees, can we have a more accurate tie-breaker please?
Or are they really tied?
Actually, I shouldn't be smirking because they will b
Eugene van der Pijll wrote:
> En op 18 november 2002 sprak Ton Hospel:
>
>>Well, we have to do SOMETHING,
>
>
> Why? As far as I'm concerned, it's OK to have two winners. Especially if
> they are as good as this. (I enjoyed the first three, four hours of the
&g
-
Mtv Europe
"Smokey, this is not 'Nam. This is bowling. There are rules."
--
Chris Dolan, Software Developer, Clotho Advanced Media Inc.
[EMAIL PROTECTED], 294-7900, 211 S Paterson, Madison WI 53703
28 matches
Mail list logo
