Newbie question: Using expanded Boolean Criteria w the Select funtion
- To: mathgroup at smc.vnet.net
- Subject: [mg111601] Newbie question: Using expanded Boolean Criteria w the Select funtion
- From: Scotty <Scotty at yahoo.com>
- Date: Sat, 7 Aug 2010 01:30:49 -0400 (EDT)
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