Words containing "the" substring: Difference between revisions
Add Draco
(Add Red) |
Not a robot (talk | contribs) (Add Draco) |
||
Line 817:
readln;
end.</lang>
=={{header|Draco}}==
<lang draco>\util.g
proc theword(*char line) bool:
CharsLen(line) > 11
and CharsIndex(line, "the") ~= -1
corp
proc nonrec main() void:
file(1024) dictfile;
[32] char buf;
*char line;
channel input text dict;
open(dict, dictfile, "unixdict.txt");
line := &buf[0];
while readln(dict; line) do
if theword(line) then writeln(line) fi
od;
close(dict)
corp</lang>
{{out}}
<pre style='height:50ex;'>authenticate
chemotherapy
chrysanthemum
clothesbrush
clotheshorse
eratosthenes
featherbedding
featherbrain
featherweight
gaithersburg
hydrothermal
lighthearted
mathematician
neurasthenic
nevertheless
northeastern
northernmost
otherworldly
parasympathetic
physiotherapist
physiotherapy
psychotherapeutic
psychotherapist
psychotherapy
radiotherapy
southeastern
southernmost
theoretician
weatherbeaten
weatherproof
weatherstrip
weatherstripping</pre>
=={{header|Factor}}==
Line 861 ⟶ 918:
weatherstripping
</pre>
=={{header|Forth}}==
| |||