#!/usr/bin/perl use strict; # https://perlmonks.org/?node_id=11143246 use warnings; use List::AllUtils qw( uniq uniq_by ); my @anagrams = uniq_by {join '', sort /./g} do{ local (@ARGV, $/) = 'dictionary.txt'; <> =~ /^\w+$/gm }; my @words = grep ! /(.).*\1/, @anagrams; print @anagrams . " anagrams and " . @words . " uniletter words\n"; my @best; my $done; $SIG{INT} = sub {$done = 1}; #for my $w ( map { ($_) x 1e4 } grep /^qt$/, grep /q/, @words ) for my $w ( ('qt xv') x 1e7 ) { my @new = @words; my $line = $w; while( 1 ) { my @letters = uniq $line =~ /\w/g; my @new = grep ! /[@letters]/, @new; # ignore if existing letters @new or last; $line .= " " . $new[rand @new]; } my @all = uniq $line =~ /\w/g; @all >= 26 and print "WINNER!!\n"; @all >= 25 and print @all . " $line\n"; @all >= $#best and $best[@all] .= "$line\n"; $done and last; } print "\n\nBEST $#best\n", $best[-1]; print "\n"; for ( ) { my @dups = /(\w)(?=.*\1)/g; printf "%-40s length: %2d dups: (%s)\n", s/\n//r, tr/a-z//, "@dups" ; } # these are found 26 letter sentences from various versions __DATA__ qt jokes zinc flag rpm why bud xv qt xv dumps chalk frenzy jig bow qt xv grandly hump wicks job fez qt xv bled frank cum why zip jogs qt xv zoned brag whys flick jump qt xv cranked jugs bop whiz m fly qt xv spindly chow bark m jug fez qt xv junk child prows bag my fez qt xv furls peck dazing m why job qt xv crumbly ponds hawk fez jig qt xv lynched frog jump bask wiz qt xv cods blink rpm why jug a fez qt xv gambled whiz junk cops fry qt xv brazens flip jug why dock m qt xv frenzy jambs howl puck dig qt xv hunks comb ply draw jig fez qt xv dawns chum flog jerk by zip qt xv folks whiz pend cram by jug qt xv pucks lard hymn bow fez jig qt xv block daring jumps fez why qt xv fazing clerk dumps why job qt xv dampen blocks jug whiz fry qt xv cashed junk flog rpm by wiz qt xv parked wiz ms bunch jog fly qt xv drops clef jab wiz gym hunk qt xv fled burn jack ms zip go why qt xv golfed cramps junk whiz by qt xv grazed flunk cs whip my job qt xv spanked whiz fry m jog club qt xv punks decry job flag m whiz qt xv blocs germ fad zip why junk qt xv cranked ms gulf zip job why qt xv jambs pend lock hug wiz fry qt xv chasm glib pod wry junk fez qt xv warns hold fez jug pick by m qt xv flunks gym carped whiz job qt xv brazen flick jugs pod m why qt xv gowns humbled jack zip fry qt xv flocked spy barn jug whiz m qt xv sunk wild parch fez jog m by qt xv drugs why fleck an zip m job qt xv zincs bug lymph dwarf joke qt xv fly bronzed whacks m jug pi qt xv don bumps chalk wry jig fez qt xv job whacks fen zip lug m dry qt xv gulped fry m snack whiz job qt xv drench saw folk jug zip by m qt xv barking clods jump why fez qt xv pricks glazed job fun m why qt xv dos whiz clap beg junk m fry qt xv wizards fleck hymn jug bop qt xv flesh crank pudgy job m wiz qt xv darn ply hicks womb jug fez qt xv land chimp brow jug fez sky qt xv wrongly hacks jump bid fez qt xv gulf nymphs racked job wiz qt xv sky lamp birch down jug fez qt xv hybrid jack plows fez m gnu qt xv jar zip fleck buns why dog m qt xv snugly whack drip m fez job qt xv lawn hick jogs dumb fez pry qt xv wrongly dish jack m pub fez qt xv wiz blonds peck ham jug fry qt xv molds whack zip fern jug by qt xv draws jig hock fez bun m ply qt xv blocks jump and fez why rig qt xv workbench jams fly zip dug qt xv block mind jaw spry fez hug qt xv dam fleck shy wrung job zip qt xv dingy hulks rpm fez caw job qt xv drags clef knob jumpy whiz qt xv whiz neck pro dabs fly m jug qt xv blazing how decks fry jump qt xv frenzy jump clog hawks bid qt xv fogs crazed blip m why junk qt xv chipmunks drawl jog by fez qt xv when zip log ducks jamb fry qt xv neck drags fly up whiz m job qt xv bucks flared nymph wiz jog qt xv bend flash rpm yuck wiz jog qt xv drench bulks jaw fog my zip qt xv branch dump low jig fez sky qt xv gumdrops why clink jab fez qt xv gyms brunched folk zip jaw qt xv men grasp duck job whiz fly qt xv calf shrew junk dog zip m by