Find words with alternating vowels and consonants: Difference between revisions

Content added Content deleted
Line 163: Line 163:
--------------- MATCHES LISTED IN COLUMNS --------------
--------------- MATCHES LISTED IN COLUMNS --------------
set w to maximum(map(|length|, matches))
set widest to maximum(map(|length|, matches))
unlines({(length of matches as text) & " matches:" & linefeed} & ¬
unlines({(length of matches as text) & " matches:" & linefeed} & ¬
map(unwords, chunksOf(4, ¬
map(unwords, chunksOf(4, ¬
map(justifyLeft(w, space), matches))))
map(justifyLeft(widest, space), matches))))
else
else
display dialog "Word list not found at:" & ¬
display dialog "Word list not found at:" & ¬
Retrieved from "https://rosettacode.org/wiki/Find_words_with_alternating_vowels_and_consonants"