| 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] |
|
