Wordmerge
wordmergeapp.com
wordmergeapp.com
#!/usr/bin/perl
$PRESUF=@ARGV?$ARGV[0]:5;while(<STDIN>){chomp;($_=lc($_)) =~ s/'.*//;next if(length($_)<$PRESUF);$BYSUF{substr($_,length($_)-$PRESUF,$PRESUF)}{$_}=1;$BYPRE{substr($_,0,$PRESUF)}{$_}=1;$D{$_}=0;}foreach $pre (keys %BYPRE) {if(exists $BYSUF{$pre}) {foreach $w1 (keys %{$BYPRE{$pre}}) {foreach $w2 (keys %{$BYSUF{$pre}}) {next if($w1 eq $w2 or $w1 =~ m/$w2/ or $w2 =~ m/$w1/);my $o = $w2.substr($w1,$PRESUF);print "$o (from '$w1' and '$w2')\n" if(++$D{$o} == 1);}}}}
So something like this would do it:
cat /usr/share/dict/words | ./FILENAME.plSome nuggets:
chiropracticalities (from 'practicalities' and 'chiropractic')
welcomedians (from 'comedians' and 'welcomed')
foregonians (from 'oregonians' and 'forego')
peppercornstalk (from 'cornstalk' and 'peppercorn')
popcornerstone (from 'cornerstone' and 'popcorn')
microchipmunks (from 'chipmunks' and 'microchip')
confidentists (from 'dentists' and 'confident')
rodentine (from 'dentine' and 'rodent')
decadentistry (from 'dentistry' and 'decadent')
I'm trying out your app right now for a vexing domain name brainstorm I've been having...
Edit: I want someone to build this... I registered the domain to avoid squatters, so if you want to be the one to build it get in touch with me.
Integrating with whois would probably be a good v2.0 feature...
I guess I should've posted it! Unlike the OP (AFAIK) it ranks the results by interestingness, where 'more interesting' means more-common words and greater overlap.
All of which could be done in HTML5, but might require account creation, and people seem to love "apps" still...
"he's really into dicksploitation"