Find words with alternating vowels and consonants: Difference between revisions
Content added Content deleted
No edit summary |
imported>Chinhouse No edit summary |
||
Line 2,169: | Line 2,169: | ||
<pre>{aboriginal, apologetic, bimolecular, borosilicate, calorimeter, capacitate, capacitive, capitoline, capitulate, caricature, colatitude, coloratura, colorimeter, debilitate, decelerate, decolonize, definitive, degenerate, deliberate, demodulate, denominate, denotative, deregulate, desiderata, desideratum, dilapidate, diminutive, epigenetic, facilitate, hemosiderin, heretofore, hexadecimal, homogenate, inoperative, judicature, latitudinal, legitimate, lepidolite, literature, locomotive, manipulate, metabolite, nicotinamide, oratorical, paragonite, pejorative, peridotite, peripatetic, polarimeter, recitative, recuperate, rehabilitate, rejuvenate, remunerate, repetitive, reticulate, savonarola, similitude, solicitude, tananarive, telekinesis, teratogenic, topologize, unilateral, unimodular, uninominal, verisimilitude}</pre> |
<pre>{aboriginal, apologetic, bimolecular, borosilicate, calorimeter, capacitate, capacitive, capitoline, capitulate, caricature, colatitude, coloratura, colorimeter, debilitate, decelerate, decolonize, definitive, degenerate, deliberate, demodulate, denominate, denotative, deregulate, desiderata, desideratum, dilapidate, diminutive, epigenetic, facilitate, hemosiderin, heretofore, hexadecimal, homogenate, inoperative, judicature, latitudinal, legitimate, lepidolite, literature, locomotive, manipulate, metabolite, nicotinamide, oratorical, paragonite, pejorative, peridotite, peripatetic, polarimeter, recitative, recuperate, rehabilitate, rejuvenate, remunerate, repetitive, reticulate, savonarola, similitude, solicitude, tananarive, telekinesis, teratogenic, topologize, unilateral, unimodular, uninominal, verisimilitude}</pre> |
||
=={{header|MiniScript}}== |
|||
This implementation is for use with the [http://miniscript.org/MiniMicro Mini Micro] version of MiniScript. The command-line version does not include a HTTP library. The script can be modified to use the file class to read a local copy of the word list. |
|||
<syntaxhighlight lang="miniscript"> |
|||
isVowel = function(c) |
|||
return "aeiou".indexOf(c) != null |
|||
end function |
|||
isAlternating = function(word) |
|||
compVowelState= isVowel(word[0]) |
|||
for i in range(1, word.len - 1) |
|||
if isVowel(word[i]) == compVowelState then return false |
|||
compVowelState = not compVowelState |
|||
end for |
|||
return true |
|||
end function |
|||
wordList = http.get("http://wiki.puzzlers.org/pub/wordlists/unixdict.txt").split(char(10)) |
|||
results = [] |
|||
for word in wordList |
|||
if word.len >9 and isAlternating(word) then results.push(word) |
|||
end for |
|||
c = 0 |
|||
for word in results |
|||
word = (word + " " * 5)[:15] // padded for printing |
|||
print word, "" |
|||
c = c + 1 |
|||
if c % 4 == 0 then print |
|||
end for |
|||
</syntaxhighlight> |
|||
{{out}} |
|||
<pre>aboriginal apologetic bimolecular borosilicate |
|||
calorimeter capacitate capacitive capitoline |
|||
capitulate caricature colatitude coloratura |
|||
colorimeter debilitate decelerate decolonize |
|||
definitive degenerate deliberate demodulate |
|||
denominate denotative deregulate desiderata |
|||
desideratum dilapidate diminutive epigenetic |
|||
facilitate hemosiderin heretofore hexadecimal |
|||
homogenate inoperative judicature latitudinal |
|||
legitimate lepidolite literature locomotive |
|||
manipulate metabolite nicotinamide oratorical |
|||
paragonite pejorative peridotite peripatetic |
|||
polarimeter recitative recuperate rehabilitate |
|||
rejuvenate remunerate repetitive reticulate |
|||
savonarola similitude solicitude tananarive |
|||
telekinesis teratogenic topologize unilateral |
|||
unimodular uninominal verisimilitude |
|||
</pre> |
|||
=={{header|Nim}}== |
=={{header|Nim}}== |
||
<syntaxhighlight lang="nim">import strutils |
<syntaxhighlight lang="nim">import strutils |