Words containing "the" substring: Difference between revisions
Words containing "the" substring (view source)
Revision as of 14:32, 27 February 2024
, 3 months agoadd Refal
mNo edit summary |
Not a robot (talk | contribs) (add Refal) |
||
(16 intermediate revisions by 13 users not shown) | |||
Line 12:
=={{header|11l}}==
<
I ‘the’ C word & word.len > 11
print(word)</
{{out}}
Line 54:
=={{header|Action!}}==
In the following solution the input file [https://gitlab.com/amarok8bit/action-rosetta-code/-/blob/master/source/unixdict.txt unixdict.txt] is loaded from H6 drive. Altirra emulator automatically converts CR/LF character from ASCII into 155 character in ATASCII charset used by Atari 8-bit computer when one from H6-H10 hard drive under DOS 2.5 is used.
<
BYTE i,j,found
Line 107:
FindWords(fname)
RETURN</
{{out}}
[https://gitlab.com/amarok8bit/action-rosetta-code/-/raw/master/images/Words_containing_the_substring.png Screenshot from Atari 8-bit computer]
Line 118:
=={{header|Ada}}==
<
with Ada.Strings.Fixed; use Ada.Strings.Fixed;
with Ada.Characters.Latin_1; use Ada.Characters.Latin_1;
Line 157:
Close (The_File);
end Main;
</syntaxhighlight>
{{output}}
<pre>
Line 170:
=={{header|ALGOL 68}}==
<
IF FILE input file;
STRING file name = "unixdict.txt";
Line 214:
print( ( newline, "found ", whole( the count, 0 ), " ""the"" words", newline ) );
close( input file )
FI</
{{out}}
<pre>
Line 230:
Using just the core language — 'words':
<
script o
property wordList : missing value
Line 245:
return o's output
end wordsContaining</
Using just the core language — 'text items':
<
script o
property textItems : missing value
Line 282:
return o's output
end wordsContaining</
Using a shell script:
<
-- Set up and execute a shell script which uses grep to find words containing the search text
-- (matching AppleScript's current case-sensitivity setting) and awk to pass those which
Line 299:
return paragraphs of (do shell script shellCode)
end wordsContaining</
Using Foundation methods (AppleScriptObjC):
<
use framework "Foundation"
use scripting additions
Line 326:
return (theWords's filteredArrayUsingPredicate:(filter)) as list
end wordsContaining</
Test code for the task with any of the above:
<
set textFile to ((path to desktop as text) & "unixdict.txt") as «class furl»
-- considering case -- Uncomment this and the corresponding 'end' line for case-sensitive searches.
set output to wordsContaining(textFile, "the", 12)
-- end considering
return {count output, output}</
{{output}}
<
=={{header|Arturo}}==
<syntaxhighlight lang="arturo">print.lines
select read.lines relative "unixdict.txt" 'l ->
and? [11 < size l]
[contains? l "the"]</syntaxhighlight>
{{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|AutoHotkey}}==
<
SubString := "the"
list := ContainSubStr(wList, SubString)
Line 365 ⟶ 399:
}
return oRes
}</
{{out}}
<pre>1- authenticate
Line 401 ⟶ 435:
=={{header|AutoIt}}==
<syntaxhighlight lang="autoit">
; Includes not needed if you don't want to use the constants
#include <FileConstants.au3>
Line 442 ⟶ 476:
ConsoleWrite("Found " & $iFoundResults & " words containing '" & $sStrToFind & "'")
</syntaxhighlight>
{{out}}
<pre>
Line 482 ⟶ 516:
The following is an awk one-liner entered at a Posix shell.
<
authenticate
chemotherapy
Line 515 ⟶ 549:
weatherstrip
weatherstripping
/Code$ </
=={{header|BASIC}}==
<
20 IF EOF(1) THEN CLOSE #1: END
30 LINE INPUT #1,W$
40 IF LEN(W$)>11 AND INSTR(W$,"the") THEN PRINT W$
50 GOTO 20</
{{out}}
<pre>authenticate
Line 556 ⟶ 590:
weatherstrip
weatherstripping</pre>
==={{header|BASIC256}}===
<syntaxhighlight lang="vb">f = freefile
open f, "i:\unixdict.txt"
while not eof(f)
a$ = read (f)
if length(a$) > 11 and instr(a$, "the") then print a$
end while
close f</syntaxhighlight>
{{out}}
<pre>Same as BASIC entry.</pre>
==={{header|GW-BASIC}}===
{{works with|PC-BASIC|any}}
{{works with|QBasic}}
<syntaxhighlight lang="qbasic">10 OPEN "unixdict.txt" FOR INPUT AS #1
20 WHILE NOT EOF(1)
30 LINE INPUT #1, A$
40 IF LEN(A$) > 11 AND INSTR(A$,"the") THEN PRINT A$
50 WEND
60 CLOSE #1
70 END</syntaxhighlight>
{{out}}
<pre>Same as BASIC entry.</pre>
==={{header|QBasic}}===
{{works with|QBasic|1.1}}
<syntaxhighlight lang="qbasic">OPEN "unixdict.txt" FOR INPUT AS #1
WHILE NOT EOF(1)
LINE INPUT #1, W$
IF LEN(W$) > 11 AND INSTR(W$, "the") THEN PRINT W$
WEND
CLOSE #1
END</syntaxhighlight>
{{out}}
<pre>Same as BASIC entry.</pre>
=={{header|BCPL}}==
<
let read(word) = valof
Line 595 ⟶ 665:
endread()
$)
$)</
{{out}}
<pre style='height:50ex;'>authenticate
Line 631 ⟶ 701:
=={{header|C}}==
<
#include <string.h>
Line 650 ⟶ 720:
fclose(f);
return 0;
}</
{{out}}
<pre style="height:50ex;">authenticate
Line 686 ⟶ 756:
=={{header|C++}}==
<
#include <fstream>
Line 702 ⟶ 772:
}
return 0;
}</
{{out}}
<pre style="height:50ex;">authenticate
Line 738 ⟶ 808:
=={{header|Common Lisp}}==
<syntaxhighlight lang="lisp">
(defun print-words-containing-substring (str len path)
(with-open-file (s path :direction :input)
Line 747 ⟶ 817:
(print-words-containing-substring "the" 11 "unixdict.txt")
</syntaxhighlight>
{{out}}
<pre>authenticate
Line 787 ⟶ 857:
{{libheader| System.IOUtils}}
{{Trans|Go}}
<syntaxhighlight lang="delphi">
program Words_containing_the_substring;
Line 816 ⟶ 886:
readln;
end.</
=={{header|Draco}}==
<
proc theword(*char line) bool:
Line 840 ⟶ 910:
close(dict)
corp</
{{out}}
<pre style='height:50ex;'>authenticate
Line 877 ⟶ 947:
=={{header|Factor}}==
{{works with|Factor|0.99 2020-08-14}}
<
"unixdict.txt" ascii file-lines
[ length 11 > ] filter
[ "the" swap subseq? ] filter
[ print ] each</
{{out}}
<pre style="height:18em">
Line 921 ⟶ 991:
=={{header|Forth}}==
Developed with Gforth 0.7.9
<
128 constant max-line
Line 954 ⟶ 1,024:
Test
</syntaxhighlight>
{{out}}
<pre>
Line 994 ⟶ 1,064:
=={{header|Fortran}}==
<
program main
implicit none
Line 1,009 ⟶ 1,079:
enddo
end program main
</syntaxhighlight>
{{out}}
Line 1,049 ⟶ 1,119:
=={{header|FreeBASIC}}==
Reuses some code from [[Odd words#FreeBASIC]]
<
type node
Line 1,096 ⟶ 1,166:
next i
curr = curr->nxt
wend</
{{out}}
<pre>
Line 1,131 ⟶ 1,201:
weatherstrip
weatherstripping</pre>
=={{header|FutureBasic}}==
<syntaxhighlight lang="futurebasic">include "NSLog.incl"
#plist NSAppTransportSecurity @{NSAllowsArbitraryLoads:YES}
void local fn DoIt
CFURLRef url
CFStringRef string, wd
ErrorRef err = NULL
CFArrayRef array
CFMutableArrayRef mutArray
url = fn URLWithString( @"https://web.archive.org/web/20180611003215/http://www.puzzlers.org/pub/wordlists/unixdict.txt" )
string = fn StringWithContentsOfURL( url, NSUTF8StringEncoding, @err )
if ( string )
array = fn StringComponentsSeparatedByCharactersInSet( string, fn CharacterSetNewlineSet )
mutArray = fn MutableArrayWithCapacity(0)
for wd in array
if ( len(wd) > 11 and fn StringContainsString( wd, @"the" ) )
MutableArrayAddObject( mutArray, wd )
end if
next
string = fn ArrayComponentsJoinedByString( mutArray, @"\n" )
NSLog(@"%@",string)
else
NSLog(@"%@",err)
end if
end fn
fn DoIt
HandleEvents</syntaxhighlight>
{{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|Go}}==
<
import (
Line 1,166 ⟶ 1,307:
}
}
}</
{{out}}
Line 1,206 ⟶ 1,347:
=={{header|Haskell}}==
<
import Data.List (isInfixOf)
Line 1,213 ⟶ 1,354:
let res = [ w | w <- lines txt, isInfixOf "the" w, length w > 11 ]
putStrLn $ show (length res) ++ " words were found:"
mapM_ putStrLn res</
<pre>λ> main
32 words were found:
Line 1,250 ⟶ 1,391:
=={{header|J}}==
<
authenticate
chemotherapy
Line 1,282 ⟶ 1,423:
weatherproof
weatherstrip
weatherstripping</
=={{header|JavaScript}}==
<syntaxhighlight lang="javascript">
document.write(`
<p>Select a file: <input type="file" id="file"></p>
Line 1,314 ⟶ 1,455:
fr.readAsText(f);
}
</syntaxhighlight>
{{out}}
<pre>
Line 1,322 ⟶ 1,463:
=={{header|jq}}==
<
One could also use `test("the")` here instead, the difference being that the argument of `test` is a JSON string interpreted as a regular expression.
{{out}}
Line 1,328 ⟶ 1,469:
=={{header|Julia}}==
See [[Alternade_words]] for the foreachword function.
<
foreachword("unixdict.txt", containsthe, minlen = 12)
</
<pre>
Word source: unixdict.txt
Line 1,343 ⟶ 1,484:
=={{header|Lua}}==
<
if #word > 11 and word:find("the") then
print(word)
end
end</
{{out}}
<pre>authenticate
Line 1,383 ⟶ 1,524:
=={{header|Mathematica}}/{{header|Wolfram Language}}==
<
dict //= StringSplit[#, "\n"] &;
dict //= Select[StringLength /* GreaterThan[11]];
Select[dict, StringContainsQ["the"]]</
{{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>
Line 1,392 ⟶ 1,533:
=={{header|min}}==
{{works with|min|0.27.1}}
<
(length 11 >) filter
("the" indexof -1 !=) filter
(puts!) foreach</
{{out}}
<pre style="height:18em">
Line 1,433 ⟶ 1,574:
=={{header|Nanoquery}}==
<
for word in words
if (word .contains. "the") and (len(word) > 11)
println word
end if
end for</
=={{header|Nim}}==
<
var count = 0
Line 1,447 ⟶ 1,588:
if word.len > 11 and word.contains("the"):
inc count
echo ($count).align(2), ' ', word</
{{out}}
Line 1,484 ⟶ 1,625:
=={{header|Objeck}}==
<
class Thes {
function : Main(args : String[]) ~ Nil {
Line 1,510 ⟶ 1,651:
};
}
}</
{{out}}
Line 1,525 ⟶ 1,666:
=={{header|Pascal}}==
{{works with|Extended Pascal}}
<
program wordsContainingTheSubstring(input, output);
var
Line 1,540 ⟶ 1,681:
end
end.
</syntaxhighlight>
If <tt>unixdict.txt</tt> is fed to <tt>stdin</tt>, the standard input file, you will get the following output:
{{out}}
Line 1,579 ⟶ 1,720:
Perl one-liner entered from a Posix shell:
<
authenticate
chemotherapy
Line 1,612 ⟶ 1,753:
weatherstrip
weatherstripping
/Code$ </
=={{header|Phix}}==
<!--<
<span style="color: #008080;">with</span> <span style="color: #008080;">javascript_semantics</span>
<span style="color: #008080;">function</span> <span style="color: #000000;">the</span><span style="color: #0000FF;">(</span><span style="color: #004080;">string</span> <span style="color: #000000;">word</span><span style="color: #0000FF;">)</span> <span style="color: #008080;">return</span> <span style="color: #7060A8;">length</span><span style="color: #0000FF;">(</span><span style="color: #000000;">word</span><span style="color: #0000FF;">)></span><span style="color: #000000;">11</span> <span style="color: #008080;">and</span> <span style="color: #7060A8;">match</span><span style="color: #0000FF;">(</span><span style="color: #008000;">"the"</span><span style="color: #0000FF;">,</span><span style="color: #000000;">word</span><span style="color: #0000FF;">)</span> <span style="color: #008080;">end</span> <span style="color: #008080;">function</span>
<span style="color: #004080;">sequence</span> <span style="color: #000000;">words</span> <span style="color: #0000FF;">=</span> <span style="color: #7060A8;">filter</span><span style="color: #0000FF;">(</span><span style="color: #7060A8;">unix_dict</span><span style="color: #0000FF;">(),</span><span style="color: #000000;">the</span><span style="color: #0000FF;">)</span>
<span style="color: #7060A8;">printf</span><span style="color: #0000FF;">(</span><span style="color: #000000;">1</span><span style="color: #0000FF;">,</span><span style="color: #008000;">"found %d 'the' words:\n%s\n"</span><span style="color: #0000FF;">,{</span><span style="color: #7060A8;">length</span><span style="color: #0000FF;">(</span><span style="color: #000000;">words</span><span style="color: #0000FF;">),</span><span style="color: #7060A8;">join</span><span style="color: #0000FF;">(</span><span style="color: #7060A8;">shorten</span><span style="color: #0000FF;">(</span><span style="color: #000000;">words</span><span style="color: #0000FF;">,</span><span style="color: #008000;">""</span><span style="color: #0000FF;">,</span><span style="color: #000000;">3</span><span style="color: #0000FF;">),</span><span style="color: #008000;">", "</span><span style="color: #0000FF;">)})</span>
<!--</
{{out}}
<pre>
Line 1,626 ⟶ 1,767:
authenticate, chemotherapy, chrysanthemum, ..., weatherproof, weatherstrip, weatherstripping
</pre>
=={{header|PHP}}==
<syntaxhighlight lang="php"><?php foreach(file("unixdict.txt") as $w) echo (strstr($w, "the") && strlen(trim($w)) > 11) ? $w : "";</syntaxhighlight>
=={{header|Plain English}}==
<
Start up.
Put "c:\unixdict.txt" into a path.
Line 1,642 ⟶ 1,785:
Repeat.
Wait for the escape key.
Shut down.</
{{out}}
<pre style="height:18em">
Line 1,680 ⟶ 1,823:
=={{header|PL/I}}==
<
declare dict file;
open file(dict) title('unixdict.txt');
Line 1,693 ⟶ 1,836:
close file(dict);
end the;</
{{out}}
<pre>authenticate
Line 1,729 ⟶ 1,872:
=={{header|Processing}}==
<
for (String word : words) {
if (word.contains("the") && word.length() > 11) {
println(word);
}
}</
{{out}}
<pre style="height:18em">authenticate
Line 1,770 ⟶ 1,913:
=={{header|Python}}==
<
with request.urlopen("http://wiki.puzzlers.org/pub/wordlists/unixdict.txt") as f:
Line 1,777 ⟶ 1,920:
for s in a:
if len(s) > 11 and "the" in s:
print(s)</
<pre>authenticate
Line 1,817 ⟶ 1,960:
Presented as a dialogue in the Quackery shell (REPL).
<
... [ dup
... [ $ 'the' buildfsm ] constant
Line 1,840 ⟶ 1,983:
weatherstripping
Stack empty.</
=={{header|R}}==
<
grep("the", words[nchar(words) > 11], value = T)</
{{out}}
Line 1,862 ⟶ 2,005:
A trivial modification of the [[ABC_words#Raku|ABC words]] task.
<syntaxhighlight lang="raku"
.&{"{+$_} words:\n " ~ .batch(8)».fmt('%-17s').join: "\n "};</
{{out}}
<pre>32 words:
Line 1,872 ⟶ 2,015:
=={{header|Red}}==
<
foreach word read/lines %unixdict.txt [
if all [11 < length? word find word "the"] [print word]
]</
{{out}}
<pre>
Line 1,912 ⟶ 2,055:
weatherstripping
</pre>
=={{header|Refal}}==
<syntaxhighlight lang="refal">$ENTRY Go {
, <ReadFile 1 'unixdict.txt'>: e.Dict
= <Each Show <Filter TheWord e.Dict>>;
};
TheWord {
(e.Word), e.Word: e.X 'the' e.Y,
<Lenw e.Word>: s.Len e.Word,
<Compare s.Len 11>: '+' = T;
(e.Word) = F;
};
ReadFile {
s.Chan e.Filename =
<Open 'r' s.Chan e.Filename>
<ReadFile (s.Chan)>;
(s.Chan), <Get s.Chan>: {
0 = <Close s.Chan>;
e.Line = (e.Line) <ReadFile (s.Chan)>;
};
};
Each {
s.F = ;
s.F t.I e.X = <Mu s.F t.I> <Each s.F e.X>;
};
Filter {
s.F = ;
s.F t.I e.X, <Mu s.F t.I>: {
T = t.I <Filter s.F e.X>;
F = <Filter s.F e.X>;
};
};
Show {
(e.X) = <Prout e.X>;
};</syntaxhighlight>
{{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|REXX}}==
Line 1,922 ⟶ 2,139:
Programming note: If the minimum length is negative, it indicates to find the words (but not display them), and
<br>only the display the count of found words.
<
parse arg $ minL iFID . /*obtain optional arguments from the CL*/
if $=='' | $=="," then $= 'the' /*Not specified? Then use the default.*/
Line 1,945 ⟶ 2,162:
/*stick a fork in it, we're all done. */
say copies('─', 25) finds " words (with a min. length of" ,
minL') that contains the substring: ' $</
{{out|output|text= when using the default inputs:}}
<pre>
Line 1,991 ⟶ 2,208:
=={{header|Ring}}==
<
cStr = read("unixdict.txt")
wordList = str2list(cStr)
Line 2,017 ⟶ 2,234:
see "done..." + nl
</syntaxhighlight>
Output:
<pre>
Line 2,055 ⟶ 2,272:
32. weatherstripping
done...
</pre>
=={{header|Ruby}}==
<syntaxhighlight lang="ruby">File.foreach("unixdict.txt"){|w| puts w if w.size > 11 && w.match?("the") }
</syntaxhighlight>
{{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>
Line 2,060 ⟶ 2,315:
{{works with|Smalltalk/X}}
<
select:[:word | (word size > 11) and:[word includesString:'the']]
thenDo:#transcribeCR</
if counting per word is required (which is overkill here, as there are no duplicates in the file), keep them in a bag:
<
'unixdict.txt' asFilename contents
select:[:word | (word size > 11) and:[word includesString:'the']]
Line 2,071 ⟶ 2,326:
bagOfWords transcribeCR.
bagOfWords size transcribeCR</
Note: #transcribeCR is a method in Object which says: "Transcript showCR:self".
Line 2,077 ⟶ 2,332:
{{works with|Smalltalk/X}}
Variant (as script file). Save to file: "filter.st":
<
[Stdin atEnd] whileFalse:[
|word|
Line 2,085 ⟶ 2,340:
Stdout nextPutLine: word
]
]</
Execute with:
<
./filter.st < unixdict.txt</
The output from the above counting snippet:
Line 2,104 ⟶ 2,359:
32</pre>
=={{header|sed}}==
<syntaxhighlight lang="sed">#!/bin/sed -f
/^.\{12\}/!d
/the/!d</syntaxhighlight>
=={{header|SETL}}==
<syntaxhighlight lang="setl">program the_words;
dict := open("unixdict.txt", "r");
loop doing geta(dict, word); until eof(dict) do
word ?:= "";
if #word > 11 and "the" in word then
print(word);
end if;
end loop;
close(dict);
end program;</syntaxhighlight>
{{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|Standard ML}}==
<
fun isThe12 s = size s > 11 andalso hasThe s
Line 2,114 ⟶ 2,420:
o List.filter isThe12
o String.tokens Char.isSpace
o TextIO.inputAll) TextIO.stdIn ^ "\n")</
{{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|Swift}}==
<
let minLength = 12
Line 2,132 ⟶ 2,438:
} catch {
print(error.localizedDescription)
}</
{{out}}
Line 2,171 ⟶ 2,477:
=={{header|Tcl}}==
<
if {[string first the $w] != -1 && [string length $w] > 11} {
puts $w
}
}</
{{out}}
<pre>authenticate
Line 2,211 ⟶ 2,517:
=={{header|VBA}}==
<
Dim ListeWords() As String, Book As String, i As Long, out() As String, count As Integer
Book = Read_File("C:\Users\" & Environ("Username") & "\Desktop\unixdict.txt")
Line 2,232 ⟶ 2,538:
Read_File = Input(LOF(Nb), #Nb)
Close #Nb
End Function</
{{out}}
<pre>Found : 32 words : authenticate, chemotherapy, chrysanthemum, clothesbrush, clotheshorse, eratosthenes, featherbedding, featherbrain,
Line 2,238 ⟶ 2,544:
otherworldly, parasympathetic, physiotherapist, physiotherapy, psychotherapeutic, psychotherapist, psychotherapy, radiotherapy,
southeastern, southernmost, theoretician, weatherbeaten, weatherproof, weatherstrip, weatherstripping
</pre>
=={{header|VBScript}}==
Run it with Cscript
<syntaxhighlight lang="vb">
with createobject("ADODB.Stream")
.charset ="UTF-8"
.open
.loadfromfile("unixdict.txt")
s=.readtext
end with
a=split (s,vblf)
with new regexp
.pattern=".*?the.*"
for each i in a
if len(trim(i))>=11 then
if .test(i) then wscript.echo i
end if
next
end with
</syntaxhighlight>
{{out}}
<pre>
authenticate
brotherhood
calisthenic
chemotherapy
chrysanthemum
clothesbrush
clotheshorse
clothesline
earthenware
endothelial
endothermic
eratosthenes
featherbedding
featherbrain
featherweight
furtherance
furthermore
furthermost
gaithersburg
grandfather
grandmother
hydrothermal
kinesthesis
leatherback
leatherneck
leatherwork
lighthearted
mathematician
netherlands
netherworld
neurasthenic
nevertheless
nonetheless
northeastern
northernmost
otherworldly
parasympathetic
parentheses
parenthesis
parenthetic
physiotherapist
physiotherapy
psychotherapeutic
psychotherapist
psychotherapy
radiotherapy
smithereens
southeastern
southernmost
sympathetic
thenceforth
theoretician
therapeutic
thereabouts
theretofore
weatherbeaten
weatherproof
weatherstrip
weatherstripping
</pre>
=={{header|V (Vlang)}}==
<syntaxhighlight lang="v (vlang)">import os
fn main() {
mut count := 1
mut text :=''
unixdict := os.read_file('./unixdict.txt') or {panic('file not found')}
for word in unixdict.split_into_lines() {
if word.contains('the') && word.len > 11 {text += count++.str() + ': $word \n'}
}
println(text)
}</syntaxhighlight>
{{out}}
<pre>
1: authenticate
2: chemotherapy
3: chrysanthemum
4: clothesbrush
5: clotheshorse
6: eratosthenes
7: featherbedding
8: featherbrain
9: featherweight
10: gaithersburg
11: hydrothermal
12: lighthearted
13: mathematician
14: neurasthenic
15: nevertheless
16: northeastern
17: northernmost
18: otherworldly
19: parasympathetic
20: physiotherapist
21: physiotherapy
22: psychotherapeutic
23: psychotherapist
24: psychotherapy
25: radiotherapy
26: southeastern
27: southernmost
28: theoretician
29: weatherbeaten
30: weatherproof
31: weatherstrip
32: weatherstripping
</pre>
=={{header|Wren}}==
{{libheader|Wren-fmt}}
<
import "./fmt" for Fmt
var wordList = "unixdict.txt" // local copy
Line 2,254 ⟶ 2,691:
Fmt.print("$2d: $s", count, word)
}
}</
{{out}}
Line 2,294 ⟶ 2,731:
=={{header|XPL0}}==
<
int I, Ch, Len;
char Word(100); \(longest word in unixdict.txt is 22 chars)
Line 2,313 ⟶ 2,750:
[Text(0, Word); CrLf(0)];
until Ch = EOF;
]</
{{out}}
Line 2,352 ⟶ 2,789:
=={{header|Yabasic}}==
<
// by Galileo, 02/2022
Line 2,360 ⟶ 2,797:
if len(a$) > 11 and instr(a$, "the") print a$
wend
close a</
{{out}}
<pre>authenticate
|