Re: Challenge: 8 Letters, Most Words (Update2:Then again :)

Update2: Second guessing myself. Update: Amongst other possible errors, ~~this rejects words that have more than 8 letters; whereas it should only reject words with more than 8 unique letters!~~

I get:

C:\test>1056884 words.txt
a e i n o r s t: 458
[download]

Just brute force (takes 3 or 4 seconds on my 179000 word dictionary):

#! perl -slw
use strict;

my %stats;

while( <> ) {
    chomp;
    next if length > 8;
    my $word = $_;
    push @{ $stats{ $_ } }, $word for split '', $word;
}

my @freq = sort{
    @{ $stats{ $b } } <=> @{ $stats{ $a } };
} keys %stats;
my %letters; ++$letters{ $_ } for @freq[ 0 .. 7 ];

my %uniq;
for my $l ( keys %letters ) {
    WORD: for my $word ( @{ $stats{ $l } } ) {
        my %letters = %letters;
        for my $c ( split '', $word ) {
            unless( exists $letters{ $c }  and --$letters{ $c } >= 0 )
+ {
                #print( "rejected: $word" );
                delete $uniq{ $word };
                next WORD ;
            }
        }
        ++$uniq{ $word } ;
    }
}
print "@{[ sort keys %letters ]}: ", scalar keys %uniq;
[download]

With the rise and rise of 'Social' network sites: 'Computers are making people easier to use everyday'

Examine what is said, not who speaks -- Silence betokens consent -- Love the truth but pardon error.

"Science is about questioning the status quo. Questioning authority".

In the absence of evidence, opinion is indistinguishable from prejudice.

div class= @{ $stats{ $a } }; } keys %stats; my %letters; ++$letters{ $_ } for @freq

Comment on Re: Challenge: 8 Letters, Most Words (Update2:Then again :) Select or Download Code

Replies are listed 'Best First'.
Re^2: Challenge: 8 Letters, Most Words (Update2:Then again :) by Limbic~Region (Chancellor) on Oct 04, 2013 at 19:18 UTC
BrowserUk, This certainly doesn't look like brute force to me. First you get the words each letter appears in (regardless of how many times it appears). Then, you consider the top 8 letters based on how many words contain the letter but only allow each letter to appear once. Your solution would probably be a lot faster if you also threw out any word from the dictionary that had repeated letter since I can't see how you would ever consider them. Cheers - L~R	[reply]
Re^2: Challenge: 8 Letters, Most Words (Update2:Then again :) by McA (Priest) on Oct 04, 2013 at 19:47 UTC
Hi BrowserUK, while I'm looking at the solutions presented here, I tried to understand your solution knowing that you have often a different and interesting view of looking at the problem. I did a litte test case dict: `ffffffff fffffffa afffffff bfffffff fffffffb ffffbfff` [download] With this dict the letters to choose to get the most matching words is 'bfffffff'. You algorithm prints something different. What have I missed? Best regards McA	[reply] [d/l]
Re^3: Challenge: 8 Letters, Most Words (Update2:Then again :) by BrowserUk (Patriarch) on Oct 04, 2013 at 20:00 UTC
you have often a different and interesting view of looking at the problem. How many dictionary words contain 7 repeats of the same letter? :) With the rise and rise of 'Social' network sites: 'Computers are making people easier to use everyday' Examine what is said, not who speaks -- Silence betokens consent -- Love the truth but pardon error. "Science is about questioning the status quo. Questioning authority". In the absence of evidence, opinion is indistinguishable from prejudice.	[reply]
Re^4: Challenge: 8 Letters, Most Words (Update2:Then again :) by Limbic~Region (Chancellor) on Oct 05, 2013 at 04:01 UTC
BrowserUk, You don't need 7 repeats to exhibit the problem: `aabc aacb aabc aabc abca eefg efge eegf eegf efeg aabcxy eefglm` [download] Your code produces: a b c e f g m x: 0 Cheers - L~R	[reply] [d/l]
Re^4: Challenge: 8 Letters, Most Words (Update2:Then again :) by McA (Priest) on Oct 04, 2013 at 20:20 UTC
I cite from the description: ...link to dictionary you used... :-))	[reply]


"be consistent"
	PerlMonks