Find words which contains more than 3 e vowels: Difference between revisions
Find words which contains more than 3 e vowels (view source)
Revision as of 16:42, 11 February 2021
, 3 years agoAdd C
Not a robot (talk | contribs) (Add Haskell) |
Not a robot (talk | contribs) (Add C) |
||
Line 98:
tennessee
</pre>
=={{header|C}}==
<lang c>#include <stdio.h>
#define SIZE 256
int check(char *word) {
int e = 0, ok = 1;
for(; *word && ok; word++) {
switch(*word) {
case 'a':
case 'i':
case 'o':
case 'u': ok = 0; break;
case 'e': e++;
}
}
return ok && e > 3;
}
int main() {
FILE *f;
char line[SIZE];
if (!(f = fopen("unixdict.txt", "r"))) {
fprintf(stderr, "Cannot open unixdict.txt\n");
return 1;
}
while (!feof(f)) {
fgets(line, SIZE, f);
if (check(line)) printf("%s", line);
}
fclose(f);
return 0;
}</lang>
{{out}}
<pre>belvedere
dereference
elsewhere
erlenmeyer
evergreen
everywhere
exegete
freewheel
nevertheless
persevere
preference
referee
seventeen
seventeenth
telemeter
tennessee</pre>
=={{header|F_Sharp|F#}}==
Line 124 ⟶ 180:
tennessee
</pre>
=={{header|Factor}}==
<lang factor>USING: formatting io io.encodings.ascii io.files kernel math
| |||