Prev: Question about adding thumbnails and snapshots to Wolfram Demonstration.
Next: ExistsURLQ
From: Derivator on 8 Aug 2010 07:21
On 7 ago, 07:31, Scotty <Sco...(a)Yahoo.com> wrote:
> To find all 6 letter words where the 1st & last characters are not
> equal, the following works & returns a list of 9921 words
>
> l1 = Select[DictionaryLookup[], StringLength[#] == 6 & ]; Length[l1]
> l2 = Select[l1, StringTake[#, 1] != StringTake[#, -1] & ]; Length[l2]
>
> 10549
>
> 9921
>
> What does it take to get this single boolean expression working w
> select??? i.e. How can it be done in 1 step??
>
> Select[DictionaryLookup[],
> {StringLength[#] == 6} && {StringTake[#, 1] != StringTake[#, -1]} & ]
>
> TIA Scotty

Select[DictionaryLookup[],(StringLength[#]==6&&StringTake[#,1]!
=StringTake[#,-1])&]//Length
9921

L.L.

 | 
Pages: 1
Prev: Question about adding thumbnails and snapshots to Wolfram Demonstration.
Next: ExistsURLQ