in reply to Re^3: Challenge: 8 Letters, Most Words (top 50)
in thread Challenge: 8 Letters, Most Words
BrowserUk,
Hopefully my code won't take longer than 24 hours to run (against the 2of12inf.txt). I too find these results odd. If I haven't any logic bugs or fence post errors, my code will put any doubt to rest though I suspect you will figure it out before my code finishes ;-)
Hopefully my code won't take longer than 24 hours to run (against the 2of12inf.txt). I too find these results odd. If I haven't any logic bugs or fence post errors, my code will put any doubt to rest though I suspect you will figure it out before my code finishes ;-)
Update: My code only took 12 minutes and it disagrees with your results. I manually checked and I think you must have a bug somewhere. Your winning solution (aeilprst: 552) really only gets 344. I even included duplicates (if there were any) to try and account for the delta but came up empty handed. See below:
#!/usr/bin/perl use strict; use warnings; my %winner = map {$_ => undef} qw/a e i l p r s t/; open(my $fh, '<', '2of12inf.txt') or die "Unable to open '2of12inf.txt +' for reading: $!\n"; WORD: while (<$fh>) { chomp; $_ = lc($_); tr/a-z//cd; next if ! $_ || length($_) > 8; my %word; ++$word{$_} for split //; for my $l (keys %word) { next WORD if ! exists $winner{$l} || $word{$l} > 1; } print "$_\n"; } __END__ ail ails air airs aisle ale alert alerts ales alit alp alps alter alters ape apes apse apt apter are ares arise art arts as asp aspire aster astir at ate ear earl earls ears east eat eats era eras erst esprit eta etas ilea irate ire ires is isle islet it its la lair lairs lap laps lapse las laser last late later lea leap leaps leapt leas least lei leis lept lepta lest let lets liar liars lie lies lip lips lira liras lire lisp lisper list lit lite liter liters litre litres pa pail pails pair pairs pal pale paler pales palest pals par pare pares pars parse part parties parts pas past paste pastel pastier pat pate pates pats pea peal peals pear pearl pearls pears peas peat peats pelt pelts per peril perils pert pest pet petal petals pets pi piaster piastre pie pier piers pies pilaster pile piles pirate pirates pis pit pita pitas pits plait plaits plaster plat plate plates platies plats plea pleas pleat pleats pliers plies praise prate prates pries priest prise psi rail rails raise rap rape rapes rapist raps rapt rasp rat rate rates rats re real realist reap reaps relit rep repast reps res rest retail retails rial rials rile riles rip ripe ripest rips rise rite rites sail sale salt salter saltier sap sari sat sate satire sea seal sear seat sepal sepia septa sera serial set silt sip sir sire sit sitar site slap slat slate slept slier slip slit spa spar spare spat spate spear spelt spiel spilt spiral spire spirea spit spite splat split sprat sprite stair stale staler staple stapler star stare steal step stile stir strap strep stria striae strip stripe tail tails tale tales tali tap tape taper tapers tapes tapir tapirs taps tar tare tares tarp tarps tars tarsi tea teal teals tear tears teas ti tie tier tiers ties tile tiler tilers tiles tip tips tire tires tis trail trails traipse trap traps trial trials tries trip tripe tripes triple triples trips tsar
Cheers - L~R
|
---|
Replies are listed 'Best First'. | |
---|---|
Re^5: Challenge: 8 Letters, Most Words (top 50)
by BrowserUk (Patriarch) on Oct 05, 2013 at 10:51 UTC | |
by Limbic~Region (Chancellor) on Oct 05, 2013 at 12:49 UTC | |
by BrowserUk (Patriarch) on Oct 05, 2013 at 13:39 UTC |
In Section
Seekers of Perl Wisdom