Revisions to Searching words with the five vowels

added 30 characters in body

Source Link

edited Mar 23, 2018 at 23:01

400.5k
18
488
929

lst = DictionaryLookup[{"Spanish", 
    x__ /; And @@ (StringCount[x, Alternatives["a"#] == 1 & /@ {"a", "e", "i", "o", "u"]] == 5"u"}] )}];

Short @ lst

{ababillarseabrenuncio, abadiadoaceituno, abadiatoacudidero, abajaderoadoquier, <15405>><< 447 >>, zurrapientavomipurgante, zurrapientovulnerario, zurriagazoyeguarizo, zurrapiento}

Length @ lst

15412455

lst = DictionaryLookup[{"Spanish", 
  x__ /; StringCount[x, Alternatives["a", "e", "i", "o", "u"]] == 5}] 

Short @ lst

{ababillarse, abadiado, abadiato, abajadero, <15405>>, zurrapienta, zurrapiento, zurriagazo}

Length @ lst

15412

lst = DictionaryLookup[{"Spanish", 
    x__ /; And @@ (StringCount[x, #] == 1 & /@ {"a", "e", "i", "o", "u"})}];

Short @ lst

{abrenuncio, aceituno, acudidero, adoquier, << 447 >>, vomipurgante, vulnerario, yeguarizo, zurrapiento}

Length @ lst

455

added 131 characters in body

Source Link

edited Mar 22, 2018 at 4:20

kglr

400.5k
18
488
929

Lengthlst @= DictionaryLookup[{"Spanish", 
   x__ /; StringCount[x, Alternatives["a", "e", "i", "o", "u"]] == 5}] 

Short @ lst

{ababillarse, abadiado, abadiato, abajadero, <15405>>, zurrapienta, zurrapiento, zurriagazo}

Length @ lst

15412

Length @ DictionaryLookup[{"Spanish", 
   x__ /; StringCount[x, Alternatives["a", "e", "i", "o", "u"]] == 5}]

15412

lst = DictionaryLookup[{"Spanish", 
  x__ /; StringCount[x, Alternatives["a", "e", "i", "o", "u"]] == 5}] 

Short @ lst

{ababillarse, abadiado, abadiato, abajadero, <15405>>, zurrapienta, zurrapiento, zurriagazo}

Length @ lst

15412

Source Link

created Mar 22, 2018 at 4:15

kglr

400.5k
18
488
929

Length @ DictionaryLookup[{"Spanish", 
   x__ /; StringCount[x, Alternatives["a", "e", "i", "o", "u"]] == 5}]

15412

Stack Exchange Network

Return to Answer