Question: FIGURE 9.1. Pictorial representation of the first five triangular numbers. In[1]: Anagrams1[word String] := Module[[words), words Map[StringJoin, Permutations [Characters[word]]]; DictionaryLookup[/; MemberQ[words, x]]] In[2] Timing

FIGURE 9.1. Pictorial representation of the first five triangular numbers. In[1]: Anagrams1[wordString] := Module[[words), words Map[StringJoin, Permutations [Characters[word]]]; DictionaryLookup[/; MemberQ[words, x]]] In[2] Timing[Anagrams1["alerts"]] Out [2] (16.3502, (alerts, alters, salter, staler}} In[3]: Anagrams2[word String] :=Module[(chars Characters[word], words), words Map[StringJoin, Permutations[chars]]; In[4] ] DictionaryLookup [Alternatives @ words]

FIGURE 9.1. Pictorial representation of the first five triangular numbers. In[1]: Anagrams1[word String] := Module[[words), words Map[StringJoin, Permutations [Characters[word]]]; DictionaryLookup[/; MemberQ[words, x]]] In[2] Timing [Anagrams1["alerts"]] Out [2] (16.3502, (alerts, alters, salter, staler}} In[3]: Anagrams2[word String] := Module[(chars Characters[word], words), words Map[StringJoin, Permutations[chars]]; In[4] ] DictionaryLookup [Alternatives @ words] Timing [Anagrams2["alerts"]] Out [4] (0.940914, (alerts, alters, salter, staler}} In[5]: Anagrams3[word String] := Module[(len = StringLength [word], words), words DictionaryLookup [RegularExpression["\\w"> ToString[len] ""]]; Select [words, Sort [Characters[+]] = Sort [Characters[word]] &]] In[6]: Timing [Anagrams3["alerts"]] Out [6] (0.052693, (alerts, alters, salter, staler}}

Step by Step Solution

There are 3 Steps involved in it

1 Expert Approved Answer
Step: 1 Unlock blur-text-image
Question Has Been Solved by an Expert!

Get step-by-step solutions from verified subject matter experts

Step: 2 Unlock
Step: 3 Unlock

Students Have Also Explored These Related Programming Questions!