ABC words: Difference between revisions

=={{header|Quackery}}==

<lang Quackery> [ true swap

behead swap

witheach

[ tuck < not if

[ dip not

conclude ] ]

drop ] is ascending ( [ --> b )

[ [] swap

$ "abc" witheach

[ over find

swap dip join ]

size join

ascending ] is abcword ( $ --> b )

[]

$ "rosetta/unixdict.txt" sharefile drop nest$

witheach

[ dup abcword iff

[ nested join ]

else drop ]

dup size echo say " words found." cr

70 wrap$</lang>

{{out}}

<pre>55 words found.

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>