Re: Re: "Countdown" (golf)

I hate to take credit for this 3-character reduction...

$;=join'?',sort@_;grep{chop;(join'',sort split//)=~/^$;$/}<D>
[download]

Why were you sorting $; as well?

_____________________________________________________
Jeff[japhy]Pinyan: Perl, regex, and perl hacker.
s++=END;++y(;-P)}y js++=;shajsj<++y(p-q)}?print:??;

Comment on Re: Re: "Countdown" (golf) Download Code

Replies are listed 'Best First'.
Re: Re: Re: "Countdown" (golf) by blakem (Monsignor) on Nov 30, 2001 at 15:11 UTC
The regex needs a '?' on the end... Its the difference between `/^a?b?c$/` and `/a?b?c?$/`. Looking at it again, I only need to add one char to get it back though: 62 chars `# 1 2 3 4 5 6 #2345678901234567890123456789012345678901234567890123456789012 $;=join'?',sort@_;grep{chop;(join'',sort split//)=~/^$;?$/}<D>` [download] Ah, but I can get it back with a little rearranging.... 61 chars `# 1 2 3 4 5 6 #234567890123456789012345678901234567890123456789012345678901 @_=sort@_;$"='?';grep{chop;(join'',sort split//)=~/^@_?$/}<D>` [download] -Blake	[reply] [d/l] [select]
Re(3): "Countdown" (golf) by graq (Curate) on Nov 30, 2001 at 15:13 UTC
Why does neither of these return 'blade'? `my @letters = qw(b a l d y a e y t);` __PASTE__ `~/perl_stuff> grep blade /usr/dict/words blade switchblade ~/perl_stuff> perl golf.pl aye baldy bay bayed beady bey by bye byte day delay dey dye lady lay lye y ye yea yet` [download] <a href="http://www.graq.co.uk">Graq</a>	[reply] [d/l]
Re: Re(3): "Countdown" (golf) by blakem (Monsignor) on Nov 30, 2001 at 15:19 UTC
Check out my reply to japhy, and notice that all your results contain at least one 'y'.... Add the '?' to the end of the regex, and 'blade' will show up. -Blake	[reply]
Re(5): "Countdown" (golf) by graq (Curate) on Nov 30, 2001 at 15:40 UTC
Ahh.. yes I am a little slow - it took >2 minutes to post my reply, during which you answered my question :) DOH! <a href="http://www.graq.co.uk">Graq</a>	[reply]


Pathologically Eclectic Rubbish Lister
	PerlMonks