I before E except after C: Difference between revisions
Content added Content deleted
Not a robot (talk | contribs) (Add BCPL) |
Not a robot (talk | contribs) (Add BASIC) |
||
Line 902: | Line 902: | ||
E before I when preceded by C: True=327 False=994 : Implausible |
E before I when preceded by C: True=327 False=994 : Implausible |
||
I before E, except after C : Implausible</pre> |
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}}== |
=={{header|BCPL}}== |