I before E except after C: Difference between revisions
Content added Content deleted
(I before E except after C en True BASIC) |
(I before E except after C en BASIC256) |
||
Line 929: | Line 929: | ||
I before E when not preceded by C: plausible. |
I before E when not preceded by C: plausible. |
||
E before I when preceded by C: not plausible.</pre> |
E before I when preceded by C: not plausible.</pre> |
||
=={{header|BASIC256}}== |
|||
{{trans|BASIC}} |
|||
<lang freebasic>CI = 0 : XI = 0 : CE = 0 : XE = 0 |
|||
open 1, "unixdict.txt" |
|||
do |
|||
pal$ = readline (1) |
|||
if instr(pal$, "ie") then |
|||
if instr(pal$, "cie") then CI += 1 else XI += 1 |
|||
endif |
|||
if instr(pal$, "ei") then |
|||
if instr(pal$, "cei") then CE += 1 else XE += 1 |
|||
endif |
|||
until eof(1) |
|||
close 1 |
|||
print "CIE: "; CI |
|||
print "xIE: "; XI |
|||
print "CEI: "; CE |
|||
print "xEI: "; XE |
|||
print |
|||
print "I before E when not preceded by C: "; |
|||
if 2 * XI <= CI then print "not "; |
|||
print "plausible." |
|||
print "E before I when preceded by C: "; |
|||
if 2 * CE <= XE then print "not "; |
|||
print "plausible." |
|||
end</lang> |
|||
=={{header|BCPL}}== |
=={{header|BCPL}}== |