Words containing "the" substring: Difference between revisions
→{{header|XPL0}}
Not a robot (talk | contribs) (Add Draco) |
|||
Line 2,192:
</pre>
=={{header|Yabasic}}==
<lang Yabasic>// Rosetta Code problem: http://rosettacode.org/wiki/Words_containing_"the"_substring
// by Galileo, 02/2022
a = open("unixdict.txt")
while not eof(a)
line input #a a$
if len(a$) > 11 and instr(a$, "the") print a$
wend
close a</lang>
{{out}}
<pre>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
---Program done, press RETURN---</pre>
{{omit from|6502 Assembly|unixdict.txt is much larger than the CPU's address space.}}
| |||