ABC words: Difference between revisions
Content added Content deleted
Not a robot (talk | contribs) (Add COBOL) |
Not a robot (talk | contribs) (Add Draco) |
||
Line 1,067: | Line 1,067: | ||
{$IFNDEF UNIX} readln; {$ENDIF} |
{$IFNDEF UNIX} readln; {$ENDIF} |
||
end.</lang> |
end.</lang> |
||
=={{header|Draco}}== |
|||
<lang draco>\util.g |
|||
proc nonrec abc_word(*char line) bool: |
|||
int a, b, c; |
|||
a := CharsIndex(line, "a"); |
|||
b := CharsIndex(line, "b"); |
|||
c := CharsIndex(line, "c"); |
|||
a ~= -1 and a < b and b < c |
|||
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 abc_word(line) then writeln(line) fi |
|||
od; |
|||
close(dict) |
|||
corp</lang> |
|||
{{out}} |
|||
<pre style='height:50ex;'>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|Factor}}== |
=={{header|Factor}}== |