ABC words: Difference between revisions
→{{header|Racket}}
(Added Quackery.) |
|||
Line 1,524:
prefabricate quarterback razorback roadblock sabbatical snapback
strabismic syllabic tabernacle tablecloth
</pre>
=={{header|Racket}}==
<lang racket>#lang racket
(for ((i (in-naturals 1))
(w (filter (curry regexp-match #rx"^[^bc]*a[^c]*b.*c.*$")
(file->lines "../../data/unixdict.txt"))))
(printf "~a\t~a~%" i w))</lang>
{{out}}
Output is elided... it's the same list of words in every other implementation
<pre>1 aback
2 abacus
3 abc
4 abdicate
5 abduct
6 abeyance
7 abject
8 abreact
9 abscess
10 abscissa
11 abscissae
12 absence
...
50 sabbatical
51 snapback
52 strabismic
53 syllabic
54 tabernacle
55 tablecloth
</pre>
| |||