I before E except after C: Difference between revisions
Add BASIC
Not a robot (talk | contribs) (Add BCPL) |
Not a robot (talk | contribs) (Add BASIC) |
||
Line 902:
E before I when preceded by C: True=327 False=994 : Implausible
I before E, except after C : Implausible</pre>
=={{header|BASIC}}==
<lang basic>10 DEFINT A-Z
20 OPEN "I",1,"UNIXDICT.TXT": GOTO 60
30 LINE INPUT #1,W$
40 IF INSTR(W$,"ie") THEN IF INSTR(W$,"cie") THEN CI=CI+1 ELSE XI=XI+1
50 IF INSTR(W$,"ei") THEN IF INSTR(W$,"cei") THEN CE=CE+1 ELSE XE=XE+1
60 IF NOT EOF(1) GOTO 30 ELSE CLOSE #1
70 PRINT "CIE:";CI
80 PRINT "xIE:";XI
90 PRINT "CEI:";CE
100 PRINT "xEI:";XE
110 PRINT
120 PRINT "I before E when not preceded by C: ";
130 IF 2*XI <= CI THEN PRINT "not ";
140 PRINT "plausible."
150 PRINT "E before I when preceded by C: ";
160 IF 2*CE <= XE THEN PRINT "not ";
170 PRINT "plausible."</lang>
{{out}}
<pre>CIE: 24
xIE: 465
CEI: 13
xEI: 213
I before E when not preceded by C: plausible.
E before I when preceded by C: not plausible.</pre>
=={{header|BCPL}}==
| |||