Words containing "the" substring: Difference between revisions

Content added Content deleted

Inline

@@ Line 817: / 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: / Line 918: @@
 weatherstripping
 </pre>
 =={{header|Forth}}==