ABC words: Difference between revisions
Content added Content deleted
(Add Tcl version) |
Not a robot (talk | contribs) (Add BASIC) |
||
Line 165: | Line 165: | ||
<lang awk>awk '/^[^bc]*a[^c]*b.*c/' unixdict.txt</lang> |
<lang awk>awk '/^[^bc]*a[^c]*b.*c/' unixdict.txt</lang> |
||
=={{header|BASIC}}== |
|||
<lang basic>10 DEFINT A,B,C: DEFSTR W |
|||
20 OPEN "I",1,"unixdict.txt" |
|||
30 IF EOF(1) THEN END |
|||
40 LINE INPUT #1, W |
|||
50 A = INSTR(W,"a") |
|||
60 B = INSTR(W,"b") |
|||
70 C = INSTR(W,"c") |
|||
80 IF A>0 AND B>0 AND C>0 AND A<B AND B<C THEN PRINT W, |
|||
90 GOTO 30</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|C#|CSharp}}== |
=={{header|C#|CSharp}}== |