Words containing "the" substring: Difference between revisions
Content added Content deleted
Line 278: | Line 278: | ||
weatherstripping |
weatherstripping |
||
/Code$ </lang> |
/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}}== |
=={{header|Delphi}}== |