Words containing "the" substring: Difference between revisions
add Standard ML
(→{{header|Arturo}}: flagged as missing the output.) |
(add Standard ML) |
||
Line 916:
32</pre>
=={{header|Standard ML}}==
<lang sml>val noThe = Substring.isEmpty o #2 o Substring.position "the"
fun printThe12 s =
if Substring.size s < 12 orelse noThe s
then ()
else print (Substring.string s ^ "\n")
val () = (List.app printThe12
o Substring.tokens Char.isSpace
o Substring.full
o TextIO.inputAll) TextIO.stdIn</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|VBA}}==
| |||