Re: PGA Golf, Round 1

I disagree on #3's minimum score, as seen by my comments in my answer:

# 3 -- 23 chars
# note: using $ instead of \z is *wrong*
# note: using . without /s is *wrong*
sub g3 { pop=~/^(.*?)\1+\z/s&&$1 }
[download]

For that matter, par is 22:

sub g3 { pop=~/^(.*?)\1+\z/s;$1 }
[download]

Comment on Re: PGA Golf, Round 1 - Results Select or Download Code

Replies are listed 'Best First'.
Re (tilly) 2: PGA Golf, Round 1 - Results by tilly (Archbishop) on Jun 01, 2001 at 02:42 UTC
Agreed. 22 is the best that I have. For a bit I mistakenly thought I had a 20 char solution in the form of: `sub hole{map/^(.*?)\1+\z/s,@_}` [download] but the rules say that if a single thing is returned, then it will be in scalar context. In scalar context this solution is wrong (as I indicated in an "oops" update).	[reply] [d/l]
Re: Re: PGA Golf, Round 1 - Results by chipmunk (Parson) on Jun 01, 2001 at 05:46 UTC
Yup, this is another one of those tricky edge cases... which the committee missed completely! We forgot about newlines in the strings.	[reply]
Re: Re: PGA Golf, Round 1 - Results by jmcnamara (Monsignor) on Jun 01, 2001 at 13:20 UTC
I disagree on #3's minimum score, as seen by my comments in my answer: I noted this when you first posted it. I tried to account for it by adding 2 chars to the posts that had omitted `\z` and `/s`. However, I didn't get it right in all cases. Although, the PGA questions were well specified, it is always possible to miss a boundary condition like this. I should have modified the question to either make this requirement explicit or to specify that it wasn't required. John. --	[reply]


The stupid question is the question not asked
	PerlMonks