Find words which contains all the vowels: Difference between revisions
Find words which contains all the vowels (view source)
Revision as of 19:26, 13 November 2021
, 2 years agoadd FreeBASIC
Alpha bravo (talk | contribs) (Added AutoHotkey) |
(add FreeBASIC) |
||
Line 633:
25. sulfonamide
</pre>
=={{header|FreeBASIC}}==
<lang freebasic>dim as boolean v(1 to 5)
dim as string s, c, q(1 to 5) = {"a","e","i","o","u"}
dim as integer i, j, n
open "unixdict.txt" for input as #1
while not eof(1)
line input #1, s
n = len(s)
if n<11 then continue while
for i=1 to 5
v(i) = false
next i
for i = 1 to n
c = mid(s,i,1)
for j = 1 to 5
if c=q(j) then
if v(j) = true then continue while
v(j)=true
end if
next j
next i
for i=1 to 5
if v(i)=false then continue while
next i
print s
wend
close #1
</lang>
=={{header|Go}}==
Line 713 ⟶ 745:
24: stupefaction
25: sulfonamide
</pre>
{{out}}<pre>
ambidextrous
bimolecular
cauliflower
communicable
communicate
consanguine
consultative
countervail
exclusionary
grandiloquent
importunate
incommutable
incomputable
insupportable
loudspeaking
malnourished
mensuration
oneupmanship
pandemonium
permutation
perturbation
portraiture
praseodymium
stupefaction
sulfonamide
</pre>
|