Words containing "the" substring: Difference between revisions

Content added Content deleted

Inline

@@ Line 1,310: / Line 1,310: @@
 weatherstripping
 </pre>
+=={{header|PL/I}}==
+<lang pli>the: procedure options(main);
+    declare dict file;
+    open file(dict) title('unixdict.txt');
+    on endfile(dict) stop;
+    declare word char(32) varying;
+    do while('1'b);
+        get file(dict) list(word);
+        if length(word) > 11 & index(word,'the') ^= 0 then
+            put skip list(word);
+    end;
+    close file(dict);
+end the;</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</pre>
 =={{header|Processing}}==