Re: Re: "Countdown" (golf)

Modifying blakem's solution to do the longest yields 93 characters with

@_=sort@_;$"='?';push@{$,[length]},$_ for grep{(join'',sort split//)=~
+m!^$/@_?$!}<D>;@{pop@,}
[download]

Update: 92 characters.

@_=sort@_;$"='?';push@{$,[length]},$_ for grep{(join'',sort split//)=~
+m!$/@_?$!}<D>;@{pop@,}
[download]

Update2: 89 characters.

@_=sort@_;$"='?';push@{$,[length]},$_ for grep{(join'',sort/./sg)=~m!$
+/@_?$!}<D>;@{pop@,}
[download]

Update2: 88 characters.

perl -l

@_=sort@_;$"='?';push@{$,[length]},$_ for grep{(join'',sort/./sg)=~/$\
+@_?$/}<D>;@{pop@,}
[download]

------
We are the carpenters and bricklayers of the Information Age.

Don't go borrowing trouble. For programmers, this means Worry only about what you need to implement.

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

Replies are listed 'Best First'.
Re: Re: Re: "Countdown" (golf) by blakem (Monsignor) on Dec 01, 2001 at 07:47 UTC
wow, that junk after the push is hard on the eyes... ;-) I really like the /./sg trick, but why use the /s? Getting rid of that newline has been one of the big obstacles on the course. Stealing this trick (w/o the /s) lets me get rid of the $/ $\ nonsense, shortening my return-the-whole-list code to 52 chars! `# 1 2 3 4 5 #234567890123456789012345678901234567890123456789012 @_=sort@_;$"='?';grep{(join'',sort/./g)=~/^@_?$/}<D>` [download] -Blake	[reply] [d/l]
Re: Re: Re: "Countdown" (golf) by stuffy (Monk) on Dec 01, 2001 at 08:17 UTC
dragonchild your solution has the same problems as gbarr It only prints out the first of the longest words. Stuffy That's my story, and I'm sticking to it, unless I'm wrong in which case I will probably change it ;~) may be reproduced under the SDL	[reply]
Re4: "Countdown" (golf) by blakem (Monsignor) on Dec 01, 2001 at 08:38 UTC
I think you might want to recheck your tests... perhaps with your test there is only one longest word. For the list `qw(a r t)` both dragonchilds and gbarrs solutions produce 'art', 'tar', and 'rat' for me. -Blake	[reply] [d/l]