Words containing "the" substring: Difference between revisions

Content added Content deleted
(Add BCPL)
(→‎{{header|BCPL}}: fix off by one bug caused by also counting the newline)
Line 384: Line 384:
$)
$)


// We need to test for a length of 12 rather than 11,
let match(word) = word%0 > 11 & contains(word,"the")
// because the newline character is included.
let match(word) = word%0 > 12 & contains(word,"the")


let start() be
let start() be
Line 399: Line 401:
{{out}}
{{out}}
<pre style='height:50ex;'>authenticate
<pre style='height:50ex;'>authenticate
brotherhood
calisthenic
chemotherapy
chemotherapy
chrysanthemum
chrysanthemum
clothesbrush
clothesbrush
clotheshorse
clotheshorse
clothesline
earthenware
endothelial
endothermic
eratosthenes
eratosthenes
featherbedding
featherbedding
featherbrain
featherbrain
featherweight
featherweight
furtherance
furthermore
furthermost
gaithersburg
gaithersburg
grandfather
grandmother
hydrothermal
hydrothermal
kinesthesis
leatherback
leatherneck
leatherwork
lighthearted
lighthearted
mathematician
mathematician
netherlands
netherworld
neurasthenic
neurasthenic
nevertheless
nevertheless
nonetheless
northeastern
northeastern
northernmost
northernmost
otherworldly
otherworldly
parasympathetic
parasympathetic
parentheses
parenthesis
parenthetic
physiotherapist
physiotherapist
physiotherapy
physiotherapy
Line 444: Line 425:
psychotherapy
psychotherapy
radiotherapy
radiotherapy
smithereens
southeastern
southeastern
southernmost
southernmost
sympathetic
thenceforth
theoretician
theoretician
therapeutic
thereabouts
theretofore
weatherbeaten
weatherbeaten
weatherproof
weatherproof