In[]:=
Grid[{{letter1,letter2},{letter2,diagonalelement1}}]
Out[]=
letter1 | letter2 |
letter2 | diagonalelement1 |
In[]:=
letter1="a";letter2="t";
In[]:=
Grid[{{letter1,letter2},{letter2,diagonalelement1}}]
Out[]=
a | t |
t | diagonalelement1 |
In[]:=
DictionaryLookup[letter2~~_]
Out[]=
{ta,ti,to,ts}
In[]:=
Select[Alphabet[],DictionaryLookup[letter2~~#~~_~~_]!={}&]
Out[]=
{a,e,h,i,o,r,u,w,y}
In[]:=
Grid[{{letter1,letter2},{letter2,#}}]&/@Characters[DictionaryLookup[letter2~~_]][[All,2]]
Out[]=
,
,
,
a | t |
t | a |
a | t |
t | i |
a | t |
t | o |
a | t |
t | s |
In[]:=
Grid[{{letter1,letter2,letter3},{letter2,diagonalelement1,symmetricelement1},{letter3,symmetricelement1,diagonalelement2}}]
Out[]=
a | t | letter3 |
t | diagonalelement1 | symmetricelement1 |
letter3 | symmetricelement1 | diagonalelement2 |
In[]:=
(xSelect[Alphabet[],DictionaryLookup[letter2~~x~~#~~_]!={}&])/@Select[Alphabet[],DictionaryLookup[letter2~~#~~_~~_]!={}&]
Out[]=
{{b,c,d,g,i,k,l,m,n,p,r,s,t,u,x},{a,d,e,l,m,n,r,s,x},{a,e,i,o,r,u},{c,d,e,f,l,m,n,p,r,z},{a,e,f,g,i,k,l,m,n,o,p,r,s,t,u,w,y},{a,e,i,o,u},{b,c,f,g,m,n,r,s,t},{a,e,i,o},{k,p,r}}
In[]:=
Select[Tuples[Alphabet[],{3}],DictionaryLookup["r"~~LetterCharacter~~#[[1]]~~#[[2]]]!={}&&DictionaryLookup["a"~~#[[1]]~~LetterCharacter~~#[[3]]]!={}&&DictionaryLookup["b"~~#[[2]]~~#[[3]]~~LetterCharacter]!={}&]
Out[]=
{{b,e,d},{b,e,e},{b,e,t},{b,e,y},{b,y,e},{b,y,t},{c,e,d},{c,e,e},{c,e,s},{c,e,y},{c,y,e},{d,e,s},{d,o,s},{f,e,r},{g,a,d},{g,a,g},{g,a,r},{g,a,s},{g,e,d},{g,e,e},{g,e,g},{g,e,r},{g,e,s},{i,l,e},{k,e,n},{l,e,a},{l,e,e},{l,e,s},{l,e,y},{l,l,a},{l,l,e},{l,l,o},{l,y,e},{m,e,d},{m,e,n},{m,e,s},{n,e,e},{n,e,l},{n,e,n},{n,e,s},{p,e,d},{p,e,e},{p,e,s},{r,e,a},{r,e,d},{r,e,s},{r,e,y},{s,e,s},{s,e,y},{t,a,p},{t,a,s},{t,e,s},{u,e,a},{u,e,s},{u,e,t},{v,e,d},{v,e,r},{v,e,s}}