Words containing "the" substring: Difference between revisions

← Older edit

Words containing "the" substring (view source)

Revision as of 14:32, 27 February 2024

33,170 bytes added , 2 months ago

add Refal

Not a robot

2,094

edits

Revision as of 00:16, 15 May 2021 (view source) Not a robot (talk \| contribs) m (fix order) ← Older edit		Latest revision as of 14:32, 27 February 2024 (view source) Not a robot (talk \| contribs) (add Refal)
(48 intermediate revisions by 33 users not shown)
Line 2: ;Task: Using the dictionary   [~~https://web.archive.org/web/20180611003215/~~http://~~www~~wiki.puzzlers.org/pub/wordlists/unixdict.txt unixdict.txt],   search words containing "the" substring, <br>then display the found words (on this page). Line 12: =={{header\|11l}}== <~~lang~~syntaxhighlight lang="11l">L(word) File(‘unixdict.txt’).read().split("\n") I ‘the’ C word & word.len > 11 print(word)</~~lang~~syntaxhighlight> {{out}} Line 50: weatherstrip weatherstripping </pre> =={{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. <syntaxhighlight lang="action!">BYTE FUNC FindS(CHAR ARRAY text,sub) BYTE i,j,found i=1 WHILE i<=text(0)-sub(0)+1 DO found=0 FOR j=1 TO sub(0) DO IF text(i+j-1)#sub(j) THEN found=0 EXIT ELSE found=1 FI OD IF found THEN RETURN (i) FI i==+1 OD RETURN (0) BYTE FUNC IsValidWord(CHAR ARRAY word) IF word(0)<=11 THEN RETURN (0) FI IF FindS(word,"the")=0 THEN RETURN(0) FI RETURN (1) PROC FindWords(CHAR ARRAY fname) CHAR ARRAY line(256) CHAR ARRAY tmp(256) BYTE pos,dev=[1] pos=2 Close(dev) Open(dev,fname,4) WHILE Eof(dev)=0 DO InputSD(dev,line) IF IsValidWord(line) THEN IF pos+line(0)>=39 THEN PutE() pos=2 FI Print(line) Put(32) pos==+line(0)+1 FI OD Close(dev) RETURN PROC Main() CHAR ARRAY fname="H6:UNIXDICT.TXT" FindWords(fname) RETURN</syntaxhighlight> {{out}} [https://gitlab.com/amarok8bit/action-rosetta-code/-/raw/master/images/Words_containing_the_substring.png Screenshot from Atari 8-bit computer] <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\|Ada}}== <~~lang~~syntaxhighlight ~~Ada~~lang="ada">with Ada.Text_IO; use Ada.Text_IO; with Ada.Strings.Fixed; use Ada.Strings.Fixed; with Ada.Characters.Latin_1; use Ada.Characters.Latin_1; Line 92 ⟶ 157: Close (The_File); end Main; </syntaxhighlight> ~~</lang>~~ {{output}} <pre> Line 105 ⟶ 170: =={{header\|ALGOL 68}}== <~~lang~~syntaxhighlight lang="algol68"># find 12 character (or more) words that have "the" in them # IF FILE input file; STRING file name = "unixdict.txt"; Line 149 ⟶ 214: print( ( newline, "found ", whole( the count, 0 ), " ""the"" words", newline ) ); close( input file ) FI</~~lang~~syntaxhighlight> {{out}} <pre> Line 165 ⟶ 230: Using just the core language — 'words': <~~lang~~syntaxhighlight lang="applescript">on wordsContaining(textfile, searchText, minLength) script o property wordList : missing value Line 180 ⟶ 245: return o's output end wordsContaining</~~lang~~syntaxhighlight> Using just the core language — 'text items': <~~lang~~syntaxhighlight lang="applescript">on wordsContaining(textFile, searchText, minLength) script o property textItems : missing value Line 217 ⟶ 282: return o's output end wordsContaining</~~lang~~syntaxhighlight> Using a shell script: <~~lang~~syntaxhighlight lang="applescript">on wordsContaining(textFile, searchText, minLength) -- 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 234 ⟶ 299: return paragraphs of (do shell script shellCode) end wordsContaining</~~lang~~syntaxhighlight> Using Foundation methods (AppleScriptObjC): <~~lang~~syntaxhighlight lang="applescript">use AppleScript version "2.4" -- OS X 10.10 (Yosemite) or later use framework "Foundation" use scripting additions Line 261 ⟶ 326: return (theWords's filteredArrayUsingPredicate:(filter)) as list end wordsContaining</~~lang~~syntaxhighlight> Test code for the task with any of the above: <~~lang~~syntaxhighlight lang="applescript">local textFile, output 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}</~~lang~~syntaxhighlight> {{output}} <~~lang~~syntaxhighlight lang="applescript">{32, {"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"}}</~~lang~~syntaxhighlight> =={{header\|Arturo}}== <syntaxhighlight lang="arturo">print.lines ~~{{output?}}~~ select read.lines relative "unixdict.txt" 'l -> and? [11 < size l] [contains? l "the"]</syntaxhighlight> {{out}} ~~<lang rebol>select read.lines "unixdict.txt" 'l ->~~ ~~and? contains? l "the"~~ <pre>authenticate ~~11 < size l</lang>~~ 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}}== <syntaxhighlight lang="autohotkey">FileRead, wList, % A_Desktop "\unixdict.txt" SubString := "the" list := ContainSubStr(wList, SubString) for i, v in list result .= i "- " v "`n" MsgBox, 262144, , % result return ContainSubStr(wList, SubString){ oRes := [] for i, w in StrSplit(wList, "`n", "`r") { if (StrLen(w) < 12 \|\| !InStr(w, SubString)) continue oRes.Push(w) } return oRes }</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\|AutoIt}}== <syntaxhighlight lang="autoit"> ; Includes not needed if you don't want to use the constants #include <FileConstants.au3> #include <StringConstants.au3> #include <MsgBoxConstants.au3> ;Initialise some variables and constants Local Const $sFileName = "unixdict.txt" Local Const $sStrToFind = "the" Local $iFoundResults = 0 ; Open the file for reading and store the handle to a variable. Local $hFileOpen = FileOpen($sFileName, $FO_READ) If $hFileOpen = -1 Then MsgBox($MB_SYSTEMMODAL, "", "An error occurred when reading the file.") Return False EndIf ; Read the contents of the file using the handle returned by FileOpen. Local $sFileRead = FileRead($hFileOpen) ; Close the handle returned by FileOpen. FileClose($hFileOpen) ; Get each "word" that's on a new line Local $aArray = StringSplit($sFileRead, @CRLF) ; Loop through the array returned by StringSplit to check the length and if it containes the "the" substring. For $i = 1 To $aArray[0] If StringLen($aArray[$i]) > 11 Then If StringInStr($aArray[$i], $sStrToFind) <> 0 Then ; Increment the found results counter $iFoundResults += 1 ; Log the output ConsoleWrite($aArray[$i]) ConsoleWrite(@CRLF) EndIf EndIf Next ConsoleWrite("Found " & $iFoundResults & " words containing '" & $sStrToFind & "'") </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 Found 32 words containing 'the'>Exit code: 0 Time: 0.07385</pre> =={{header\|AWK}}== The following is an awk one-liner entered at a Posix shell. <~~lang~~syntaxhighlight lang="awk">/Code$ awk '/the/ && length($1) > 11' unixdict.txt authenticate chemotherapy Line 318 ⟶ 549: weatherstrip weatherstripping /Code$ </~~lang~~syntaxhighlight> =={{header\|BASIC}}== <~~lang~~syntaxhighlight lang="basic">10 OPEN "I",1,"unixdict.txt" 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</~~lang~~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\|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}}== <syntaxhighlight lang="bcpl">get "libhdr" let read(word) = valof $( let ch = ? word%0 := 0 $( ch := rdch() if ch = endstreamch then resultis false word%0 := word%0 + 1 word%(word%0) := ch $) repeatuntil ch = 'N' resultis true $) let contains(s1,s2) = valof $( for i=1 to s1%0-s2%0+1 $( for j=1 to s2%0 unless s1%(i+j-1)=s2%j goto next resultis true next: loop $) resultis false $) // We need to test for a length of 12 rather than 11, // because the newline character is included. let match(word) = word%0 > 12 & contains(word,"the") let start() be $( let word = vec 63 let file = findinput("unixdict.txt") test file=0 do writes("Cannot open unixdict.txtN") or $( selectinput(file) while read(word) if match(word) do writes(word) endread() $) $)</syntaxhighlight> {{out}} <pre style='height:50ex;'>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\|C}}== <syntaxhighlight lang="c">#include <stdio.h> #include <string.h> int main() { char word[128]; FILE f = fopen("unixdict.txt","r"); if (!f) { fprintf(stderr, "Cannot open unixdict.txt\n"); return -1; } while (!feof(f)) { fgets(word, sizeof(word), f); // fgets() includes the \n character, so we need to test // for a length of 12 (11 letters plus the newline) if (strlen(word) > 12 && strstr(word,"the")) printf("%s",word); } fclose(f); return 0; }</syntaxhighlight> {{out}} <pre style="height:50ex;">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\|C++}}== <syntaxhighlight lang="cpp">#include <iostream> #include <fstream> int main() { std::string word; std::ifstream file("unixdict.txt"); if (!file) { std::cerr << "Cannot open unixdict.txt" << std::endl; return -1; } while (file >> word) { if (word.length() > 11 && word.find("the") != std::string::npos) std::cout << word << std::endl; } return 0; }</syntaxhighlight> {{out}} <pre style="height:50ex;">authenticate chemotherapy chrysanthemum Line 361 ⟶ 808: =={{header\|Common Lisp}}== <syntaxhighlight lang="lisp"> ~~<lang Lisp>~~ (defun print-words-containing-substring (str len path) (with-open-file (s path :direction :input) Line 370 ⟶ 817: (print-words-containing-substring "the" 11 "unixdict.txt") </syntaxhighlight> ~~</lang>~~ {{out}} <pre>authenticate Line 410 ⟶ 857: {{libheader\| System.IOUtils}} {{Trans\|Go}} <syntaxhighlight lang="delphi"> ~~<lang Delphi>~~ program Words_containing_the_substring; Line 439 ⟶ 886: readln; end.</~~lang~~syntaxhighlight> =={{header\|Draco}}== <syntaxhighlight lang="draco">\util.g proc theword(char line) bool: CharsLen(line) > 11 and CharsIndex(line, "the") ~= -1 corp proc nonrec main() void: file(1024) dictfile; [32] char buf; char line; channel input text dict; open(dict, dictfile, "unixdict.txt"); line := &buf[0]; while readln(dict; line) do if theword(line) then writeln(line) fi od; close(dict) corp</syntaxhighlight> {{out}} <pre style='height:50ex;'>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\|Factor}}== {{works with\|Factor\|0.99 2020-08-14}} <~~lang~~syntaxhighlight lang="factor">USING: io io.encodings.ascii io.files kernel math sequences ; "unixdict.txt" ascii file-lines [ length 11 > ] filter [ "the" swap subseq? ] filter [ print ] each</~~lang~~syntaxhighlight> {{out}} <pre style="height:18em"> 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\|Forth}}== Developed with Gforth 0.7.9 <syntaxhighlight lang="forth">11 constant WordLen 128 constant max-line create SearchSub 80 allot Create SrcFile 256 allot Variable fhin variable Cnt : SrcOpen Srcfile count r/o open-file throw Fhin ! ; : SrcClose fhin @ close-file throw ; : third >r over r> swap ; : cnt++ cnt 1 swap +! ; : SubStrFound SearchSub count Search ; : read-lines fhin @ begin pad max-line third read-line throw while pad swap dup WordLen > if 2dup SubStrFound -rot 2drop if cnt++ cr type else 2drop then else 2DROP then repeat 2drop ; : Test 0 cnt ! s" ./unixdict.txt" SrcFile place s" the" SearchSub place SrcOpen read-lines cr ." ==============" cr ." Found " cnt @ . ." Words" cr SrcClose ; Test </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 ============== Found 32 Words </pre> =={{header\|Fortran}}== <syntaxhighlight lang="fortran"> program main implicit none integer :: lun character(len=256) :: line integer :: ios open(file='unixdict.txt',newunit=lun) do read(lun,'(a)',iostat=ios)line if(ios /= 0)exit if( index(line,'the') /= 0 .and. len_trim(line) > 11 ) then write(,'(a)')trim(line) endif enddo end program main </syntaxhighlight> {{out}} <pre> authenticate chemotherapy Line 487 ⟶ 1,119: =={{header\|FreeBASIC}}== Reuses some code from [[Odd words#FreeBASIC]] <~~lang~~syntaxhighlight lang="freebasic">#define NULL 0 type node Line 534 ⟶ 1,166: next i curr = curr->nxt wend</~~lang~~syntaxhighlight> {{out}} <pre> Line 569 ⟶ 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}}== <~~lang~~syntaxhighlight lang="go">package main import ( Line 604 ⟶ 1,307: } } }</~~lang~~syntaxhighlight> {{out}} Line 643 ⟶ 1,346: </pre> =={{header\|Haskell}}== <syntaxhighlight lang="haskell">import System.IO (readFile) import Data.List (isInfixOf) main = do txt <- readFile "unixdict.txt" let res = [ w \| w <- lines txt, isInfixOf "the" w, length w > 11 ] putStrLn $ show (length res) ++ " words were found:" mapM_ putStrLn res</syntaxhighlight> <pre>λ> main 32 words were found: 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\|J}}== <syntaxhighlight lang="j"> >(#~ (+./@E.~&'the'11<#)@>) cutLF fread'unixdict.txt' 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</syntaxhighlight> =={{header\|JavaScript}}== <syntaxhighlight lang="javascript"> document.write(` <p>Select a file: <input type="file" id="file"></p> <p>Get words containing: <input value="THE" type="text" id="cont"></p> <p>Min. word length: <input type="number" value="12" id="len"></p> <div id="info"></div><div id="out"></div> `); function search(inp) { let cont = document.getElementById('cont').value.toUpperCase(), len = parseInt(document.getElementById('len').value), out = document.getElementById('out'), info = document.getElementById('info'), result = [], i; inp = inp.replace(/\n\|\r/g, '_'); inp = inp.replace(/__/g, ' ').split(' '); for (i = 0; i < inp.length; i++) if (inp[i].length >= len && inp[i].toUpperCase().indexOf(cont) != -1) result.push(inp[i]); info.innerHTML = `<h2>${result.length} matches found for ${cont}, min. length ${len}:</h2>`; out.innerText = result.join(', '); } document.getElementById('file').onchange = function() { let fr = new FileReader(), f = document.getElementById('file').files[0]; fr.onload = function() { search(fr.result); } fr.readAsText(f); } </syntaxhighlight> {{out}} <pre> 32 matches found for THE, min. length 12: 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\|jq}}== <syntaxhighlight lang="sh">jq -nrR 'inputs\|select(length>11 and index("the"))' unixdict.txt</syntaxhighlight> 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}} As for 11l et al. =={{header\|Julia}}== See [[Alternade_words]] for the foreachword function. <~~lang~~syntaxhighlight lang="julia">containsthe(w, d) = occursin("the", w) ? w : "" foreachword("unixdict.txt", containsthe, minlen = 12) </~~lang~~syntaxhighlight>{{out}} <pre> Word source: unixdict.txt Line 658 ⟶ 1,482: weatherstrip weatherstripping </pre> =={{header\|Lua}}== <syntaxhighlight lang="lua">for word in io.open("unixdict.txt", "r"):lines() do if #word > 11 and word:find("the") then print(word) end end</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\|Mathematica}}/{{header\|Wolfram Language}}== <syntaxhighlight lang="mathematica">dict = Once[Import["https://web.archive.org/web/20180611003215/http://www.puzzlers.org/pub/wordlists/unixdict.txt"]]; dict //= StringSplit[#, "\n"] &; dict //= Select[StringLength / GreaterThan[11]]; Select[dict, StringContainsQ["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\|min}}== {{works with\|min\|0.27.1}} <~~lang~~syntaxhighlight lang="min">"unixdict.txt" fread "\n" split (length 11 >) filter ("the" indexof -1 !=) filter (puts!) foreach</~~lang~~syntaxhighlight> {{out}} <pre style="height:18em"> Line 702 ⟶ 1,574: =={{header\|Nanoquery}}== <~~lang~~syntaxhighlight ~~Nanoquery~~lang="nanoquery">words = split(new(Nanoquery.IO.File).open("unixdict.txt").readAll(),"\n") for word in words if (word .contains. "the") and (len(word) > 11) println word end if end for</~~lang~~syntaxhighlight> =={{header\|Nim}}== <syntaxhighlight lang="nim">import strutils var count = 0 for word in "unixdict.txt".lines: if word.len > 11 and word.contains("the"): inc count echo ($count).align(2), ' ', word</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\|Objeck}}== <~~lang~~syntaxhighlight lang="objeck"> class Thes { function : Main(args : String[]) ~ Nil { Line 736 ⟶ 1,651: }; } }</~~lang~~syntaxhighlight> {{out}} Line 748 ⟶ 1,663: southernmost theoretician weatherbeaten weatherproof weatherstrip weatherstripping</pre> =={{header\|Pascal}}== {{works with\|Extended Pascal}} <syntaxhighlight lang="pascal"> program wordsContainingTheSubstring(input, output); var word: string(22); begin while not EOF do begin readLn(word); if (length(word) > 11) and_then (index(word, 'the') > 0) then begin writeLn(word) end 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}} 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 =={{header\|Perl}}== Perl one-liner entered from a Posix shell: <~~lang~~syntaxhighlight lang="perl">/Code$ perl -n -e '/(\wthe\w)/ && length($1)>11 && print' unixdict.txt authenticate chemotherapy Line 785 ⟶ 1,753: weatherstrip weatherstripping /Code$ </~~lang~~syntaxhighlight> =={{header\|Phix}}== <!--<~~lang~~syntaxhighlight ~~Phix~~lang="phix">(~~notonline~~phixonline)--> <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;">~~get_text~~unix_dict</span><span style="color: #0000FF;">(~~</span><span style="color: #008000;">"demo/unixdict.txt"</span><span style="color: #0000FF;">,</span><span style="color: #004600;">GT_LF_STRIPPED</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> <!--</~~lang~~syntaxhighlight>--> {{out}} <pre> Line 798 ⟶ 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}}== <~~lang~~syntaxhighlight lang="plainenglish">To run: Start up. Put "c:\unixdict.txt" into a path. Line 814 ⟶ 1,785: Repeat. Wait for the escape key. Shut down.</~~lang~~syntaxhighlight> {{out}} <pre style="height:18em"> Line 850 ⟶ 1,821: weatherstripping </pre> =={{header\|PL/I}}== <syntaxhighlight lang="pli">the: procedure options(main); declare dict file; open file(dict) title('unixdict.txt'); on endfile(dict) stop; declare word char(32) varying; do while('1'b); get file(dict) list(word); if length(word) > 11 & index(word,'the') ^= 0 then put skip list(word); end; close file(dict); end 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\|Processing}}== <syntaxhighlight lang="processing">String[] words = loadStrings("unixdict.txt"); for (String word : words) { if (word.contains("the") && word.length() > 11) { println(word); } }</syntaxhighlight> {{out}} <pre style="height:18em">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\|Python}}== <syntaxhighlight lang="python">import urllib.request as request ~~Entered from a Posix shell:~~ with request.urlopen("http://wiki.puzzlers.org/pub/wordlists/unixdict.txt") as f: ~~<lang python>/Code$ python -c 'import sys~~ a = f.read().decode("ASCII").split() ~~> for line in sys.stdin:~~ ~~> if "the" in line and len(line.strip()) > 11:~~ for s in a: ~~> print(line.rstrip())~~ if len(s) > 11 and "the" in s: ~~> ' < unixdict.txt~~ print(s)</syntaxhighlight> ~~authenticate~~ <pre>authenticate chemotherapy chrysanthemum Line 890 ⟶ 1,953: weatherproof weatherstrip weatherstripping</pre> ~~/Code$ </lang>~~ =={{header\|Quackery}}== Line 898 ⟶ 1,960: Presented as a dialogue in the Quackery shell (REPL). <~~lang~~syntaxhighlight ~~Quackery~~lang="quackery">/O> [ $ 'sundry/fsm.qky' loadfile ] now! ... [ dup ... [ $ 'the' buildfsm ] constant Line 921 ⟶ 1,983: weatherstripping Stack empty.</~~lang~~syntaxhighlight> =={{header\|R}}== <syntaxhighlight lang="rsplus">words <- readLines("http://wiki.puzzlers.org/pub/wordlists/unixdict.txt") grep("the", words[nchar(words) > 11], value = T)</syntaxhighlight> {{out}} <pre> [1] "authenticate" "chemotherapy" "chrysanthemum" "clothesbrush" [5] "clotheshorse" "eratosthenes" "featherbedding" "featherbrain" [9] "featherweight" "gaithersburg" "hydrothermal" "lighthearted" [13] "mathematician" "neurasthenic" "nevertheless" "northeastern" [17] "northernmost" "otherworldly" "parasympathetic" "physiotherapist" [21] "physiotherapy" "psychotherapeutic" "psychotherapist" "psychotherapy" [25] "radiotherapy" "southeastern" "southernmost" "theoretician" [29] "weatherbeaten" "weatherproof" "weatherstrip" "weatherstripping"</pre> =={{header\|Raku}}== A trivial modification of the [[ABC_words#Raku\|ABC words]] task. <syntaxhighlight lang="raku" ~~perl6~~line>put 'unixdict.txt'.IO.words».fc.grep({ (.chars > 11) && (.contains: 'the') })\ .&{"{+$_} words:\n " ~ .batch(8)».fmt('%-17s').join: "\n "};</~~lang~~syntaxhighlight> {{out}} <pre>32 words: Line 935 ⟶ 2,013: northernmost otherworldly parasympathetic physiotherapist physiotherapy psychotherapeutic psychotherapist psychotherapy radiotherapy southeastern southernmost theoretician weatherbeaten weatherproof weatherstrip weatherstripping </pre> =={{header\|Red}}== <syntaxhighlight lang="rebol">Red[] foreach word read/lines %unixdict.txt [ if all [11 < length? word find word "the"] [print word] ]</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\|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 945 ⟶ 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. <~~lang~~syntaxhighlight lang="rexx">/REXX program finds words that contain the substring "the" (within an identified dict.)/ parse arg $ minL iFID . /obtain optional arguments from the CL/ if $=='' \| $=="," then $= 'the' /Not specified? Then use the default./ Line 968 ⟶ 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: ' $</~~lang~~syntaxhighlight> {{out\|output\|text=  when using the default inputs:}} <pre> Line 1,014 ⟶ 2,208: =={{header\|Ring}}== <~~lang~~syntaxhighlight lang="ring"> cStr = read("unixdict.txt") wordList = str2list(cStr) Line 1,040 ⟶ 2,234: see "done..." + nl </syntaxhighlight> ~~</lang>~~ Output: <pre> Line 1,078 ⟶ 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 1,083 ⟶ 2,315: {{works with\|Smalltalk/X}} <~~lang~~syntaxhighlight lang="smalltalk">'unixdict.txt' asFilename contents select:[:word \| (word size > 11) and:[word includesString:'the']] thenDo:#transcribeCR</~~lang~~syntaxhighlight> if counting per word is required (which is overkill here, as there are no duplicates in the file), keep them in a bag: <~~lang~~syntaxhighlight lang="smalltalk">bagOfWords := Bag new. 'unixdict.txt' asFilename contents select:[:word \| (word size > 11) and:[word includesString:'the']] Line 1,094 ⟶ 2,326: bagOfWords transcribeCR. bagOfWords size transcribeCR</~~lang~~syntaxhighlight> Note: #transcribeCR is a method in Object which says: "Transcript showCR:self". Line 1,100 ⟶ 2,332: {{works with\|Smalltalk/X}} Variant (as script file). Save to file: "filter.st": <~~lang~~syntaxhighlight lang="smalltalk">#! /usr/bin/env stx --script [Stdin atEnd] whileFalse:[ \|word\| Line 1,108 ⟶ 2,340: Stdout nextPutLine: word ] ]</~~lang~~syntaxhighlight> Execute with: <~~lang~~syntaxhighlight lang="shell">chmod +x filter.st ./filter.st < unixdict.txt</~~lang~~syntaxhighlight> The output from the above counting snippet: Line 1,127 ⟶ 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}}== <~~lang~~syntaxhighlight lang="sml">val hasThe = String.isSubstring "the" fun isThe12 s = size s > 11 andalso hasThe s Line 1,137 ⟶ 2,420: o List.filter isThe12 o String.tokens Char.isSpace o TextIO.inputAll) TextIO.stdIn ^ "\n")</~~lang~~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\|Swift}}== <syntaxhighlight lang="swift">import Foundation let minLength = 12 let substring = "the" do { try String(contentsOfFile: "unixdict.txt", encoding: String.Encoding.ascii) .components(separatedBy: "\n") .filter{$0.count >= minLength && $0.contains(substring)} .enumerated() .forEach{print(String(format: "%2d. %@", $0.0 + 1, $0.1))} } catch { print(error.localizedDescription) }</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\|Tcl}}== <~~lang~~syntaxhighlight lang="tcl">foreach w [read [open unixdict.txt]] { if {[string first the $w] != -1 && [string length $w] > 11} { puts $w } }</~~lang~~syntaxhighlight> {{out}} <pre>authenticate Line 1,182 ⟶ 2,517: =={{header\|VBA}}== <~~lang~~syntaxhighlight lang="vb">Sub Main_Contain() 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 1,203 ⟶ 2,538: Read_File = Input(LOF(Nb), #Nb) Close #Nb End Function</~~lang~~syntaxhighlight> {{out}} <pre>Found : 32 words : authenticate, chemotherapy, chrysanthemum, clothesbrush, clotheshorse, eratosthenes, featherbedding, featherbrain, Line 1,209 ⟶ 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}} <~~lang~~syntaxhighlight ~~ecmascript~~lang="wren">import "io" for File import "./fmt" for Fmt var wordList = "unixdict.txt" // local copy Line 1,225 ⟶ 2,691: Fmt.print("$2d: $s", count, word) } }</~~lang~~syntaxhighlight> {{out}} Line 1,265 ⟶ 2,731: =={{header\|XPL0}}== <~~lang~~syntaxhighlight ~~XPL0~~lang="xpl0">string 0; \use zero-terminated strings int I, Ch, Len; char Word(100); \(longest word in unixdict.txt is 22 chars) Line 1,284 ⟶ 2,750: [Text(0, Word); CrLf(0)]; until Ch = EOF; ]</~~lang~~syntaxhighlight> {{out}} Line 1,321 ⟶ 2,787: weatherstripping </pre> =={{header\|Yabasic}}== <syntaxhighlight lang="yabasic">// Rosetta Code problem: http://rosettacode.org/wiki/Words_containing_"the"_substring // by Galileo, 02/2022 a = open("unixdict.txt") while not eof(a) line input #a a$ if len(a$) > 11 and instr(a$, "the") print a$ wend close a</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 ---Program done, press RETURN---</pre> {{omit from\|6502 Assembly\|unixdict.txt is much larger than the CPU's address space.}} {{omit from\|8080 Assembly\|See 6502 Assembly.}} {{omit from\|Computer/zero Assembly\|See 6502 Assembly.}} {{omit from\|Z80 Assembly\|See 6502 Assembly.}}