Words containing "the" substring: Difference between revisions

m
→‎{{header|Smalltalk}}: ouch undid one too many...
(→‎{{header|Smalltalk}}: back to previous version; me stupid.)
m (→‎{{header|Smalltalk}}: ouch undid one too many...)
Line 671:
{{works with|Smalltalk/X}}
<lang smalltalk>'unixdict.txt' asFilename contents
select:[:word | (word size > 11) and:[word includesString:'the' caseSensitive:trueOrFalseWhoKnows]]
thenDo:#transcribeCR</lang>
 
Line 680:
|word|
((word := Stdin nextLine) size > 11
and:[word includesString:'the' caseSensitive:trueOrFalseWhoKnows]
) ifTrue:[
Stdout nextPutLine: word
Anonymous user