Mathematica 9 is now available
Student Support Forum
-----
Student Support Forum > General > > "DictionaryLookup for a pair of words"

Post Reply:
Name:
Email Address:

Please send email when my message is replied to.

Url (optional):
Subject:
Message: view original message?
Attachment (optional):
Please answer this:1+3 =



Original Message (ID '38885') By Bill Simpson:
In Response To 'Re: DictionaryLookup for a pair of words' --------- bindex = Map[{Union[Rest[Characters[#]]], #} &, DictionaryLookup["English", RegularExpression["b......"]]]; mindex = Map[{Union[Rest[Characters[#]]], #} &, DictionaryLookup["English", RegularExpression["m......"]]]; matches = Intersection[Map[First, bindex], Map[First, mindex]]; Map[{Cases[bindex, {#, _}], Cases[mindex, {#, _}]} &, matches]