ABC words: Difference between revisions
Content added Content deleted
MaiconSoft (talk | contribs) (Added Delphi example) |
Drkameleon (talk | contribs) (Added Arturo implementation) |
||
Line 182: | Line 182: | ||
prefabricate quarterback razorback roadblock sabbatical |
prefabricate quarterback razorback roadblock sabbatical |
||
snapback strabismic syllabic tabernacle tablecloth </pre> |
snapback strabismic syllabic tabernacle tablecloth </pre> |
||
=={{header|Arturo}}== |
|||
<lang rebol>words: read.lines relative "unixdict.txt" |
|||
isABC?: function [w][ |
|||
a: index w "a" |
|||
if null? a -> return false |
|||
b: index w "b" |
|||
if null? b -> return false |
|||
if b < a -> return false |
|||
c: index w "c" |
|||
if null? c -> return false |
|||
if c < b -> return false |
|||
return true |
|||
] |
|||
loop words 'word [ |
|||
if isABC? word -> |
|||
print word |
|||
]</lang> |
|||
{{out}} |
|||
<pre>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}}== |
=={{header|AWK}}== |