| Author |
Comment/Response |
Bill Simpson
|
 09/26/12 3:03pm
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]
URL: , |
|
