I before E except after C: Difference between revisions
I before E except after C en Yabasic
(I before E except after C en BASIC256) |
(I before E except after C en Yabasic) |
||
Line 4,724:
Plausible overall: no
</pre>
=={{header|Yabasic}}==
{{trans|BASIC}}
<lang freebasic>open "unixdict.txt" for reading as #1
repeat
line input #1 pal$
if instr(pal$, "ie") then
if instr(pal$, "cie") then CI = CI + 1 else XI = XI + 1 : fi
endif
if instr(pal$, "ei") then
if instr(pal$, "cei") then CE = CE + 1 else XE = XE + 1 : fi
endif
until eof(1)
close #1
print "CIE: ", CI
print "xIE: ", XI
print "CEI: ", CE
print "xEI: ", XE
print "\nI before E when not preceded by C: ";
if 2 * XI <= CI then print "not "; : fi
print "plausible."
print "E before I when preceded by C: ";
if 2 * CE <= XE then print "not "; : fi
print "plausible."
end</lang>
=={{header|zkl}}==
| |||