Re: Re: The longest word ....

Of course using sort just makes it too easy. :-)

sub longest_words {
    my @W = sort { length($b) <=> length($a) } $_[0] =~ /\b(\w+)\b/g;
    grep length == length($W[0]), @W;
}
[download]

As long as you do it right, that is. You'll need to use <=> in your sort. Just testing for 'greater than' isn't sufficient.

Update: A little golfing gets the sub down to 79 characters:

sub longest_words {
my@W=sort{length($b)<=>length($a)}$_[0]=~/(\w+)/g;grep length==length(
+$W[0]),@W
}
[download]

-sauoq
"My two cents aren't worth a dime.";

Comment on Re: Re: The longest word .... Select or Download Code

Replies are listed 'Best First'.
Re: Re: Re: The longest word .... by Juerd (Abbot) on Nov 13, 2002 at 00:50 UTC
`# 1 2 3 4 5 6 7 #23456789_123456789_123456789_123456789_123456789_123456789_123456789_ +123456789 my@W=sort{length($b)<=>length($a)}$_[0]=~/(\w+)/g;grep length==length( +$W[0]),@W` [download] Untested code ahead `# 1 2 3 4 5 6 7 #23456789_123456789_123456789_123456789_123456789_123456789_123456789_ +1 my@W=sort length$b<=>length$a,$_[0]=~/\w+/g;grep length==length$W[0],@ +W` [download] See, no parens :) But, since we're playing golf... `# 1 2 3 4 #23456789_123456789_123456789_123456789_123 push@{$_[y///c]},$_ for+pop=~/\w+/g;@{+pop}` [download] - Yes, I reinvent wheels. - Spam: Visit eurotraQ.	[reply] [d/l] [select]
Re: Re: Re: The longest word .... by AltBlue (Chaplain) on Nov 12, 2002 at 14:36 UTC
heh, stripping blanks off does no good for a real golf ;-) but the idea of skipping the additional hash ofc it' good :) wd. hehe, some golfing you could have done seeing that 'length' appears quite often in your routine ;-) -- AltBlue.	[reply]
Re: Re: Re: Re: The longest word .... by sauoq (Abbot) on Nov 12, 2002 at 20:11 UTC
heh, stripping blanks off does no good for a real golf ;-) Sometimes whitespace is necessary so you should strip the unnecessary spaces when you are golfing. some golfing you could have done seeing that 'length' appears quite often in your routine ;-) Yes, it does. In each case, though, it is taking the length of something different: once for each of $a and $b in the sort, and once for each of $_ and $W[0] in the grep. So, I'm not sure what you point is. Feel free to share your improvements. -sauoq "My two cents aren't worth a dime.";	[reply]