Words containing "the" substring: Difference between revisions

Content added Content deleted

Inline

@@ Line 278: / Line 278: @@
 weatherstripping
 /Code$ </lang>
+=={{header|Common Lisp}}==
+<lang Lisp>
+(defun print-words-containing-substring (str len path)
+  (with-open-file (s path :direction :input)
+    (do ((line (read-line s nil :eof) (read-line s nil :eof)))
+        ((eql line :eof)) (when (and (> (length line) len)
+                                     (search str line))
+                            (format t "~a~%" line)))))
+</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
+NIL</pre>
 =={{header|Delphi}}==