Find words which contains more than 3 e vowels: Difference between revisions
Content added Content deleted
m ((temporarily) forced a TOC.) |
m (→{{header|Phix}}: minor tidy) |
||
Line 15: | Line 15: | ||
=={{header|Phix}}== |
=={{header|Phix}}== |
||
<lang Phix>function note(string word) return find_any("aiou",word)=0 and length(find_all('e',word))>3 end function |
<lang Phix>function note(string word) return find_any("aiou",word)=0 and length(find_all('e',word))>3 end function |
||
sequence notes = filter |
sequence notes = filter(get_text("demo/unixdict.txt",GT_LF_STRIPPED),note) |
||
printf(1,"%d words: %s\n",{length(notes),join(shorten(notes,"",3))})</lang> |
printf(1,"%d words: %s\n",{length(notes),join(shorten(notes,"",3))})</lang> |
||
{{out}} |
{{out}} |