ABC words: Difference between revisions
Add APL
Not a robot (talk | contribs) (Add BCPL) |
Not a robot (talk | contribs) (Add APL) |
||
Line 160:
55: tablecloth
</pre>
=={{header|APL}}==
{{works with|Dyalog APL}}
<lang apl>abcwords←{
⍺←'abc'
words←((~∊)∘⎕TC⊆⊢) 80 ¯1⎕MAP ⍵
match←∧/∊,2</⍳⍨
(⍺∘match¨words)/words
}</lang>
{{out}}
<pre> 11 5 ⍴ abcwords 'unixdict.txt'
aback abacus abc abdicate abduct
abeyance abject abreact abscess abscissa
abscissae absence abstract abstracter abstractor
adiabatic aerobacter aerobic albacore alberich
albrecht algebraic alphabetic ambiance ambuscade
aminobenzoic anaerobic arabic athabascan auerbach
diabetic diabolic drawback fabric fabricate
flashback halfback iambic lampblack leatherback
metabolic nabisco paperback parabolic playback
prefabricate quarterback razorback roadblock sabbatical
snapback strabismic syllabic tabernacle tablecloth </pre>
=={{header|AWK}}==
| |||