I before E except after C: Difference between revisions
Content added Content deleted
(I before E except after C en BASIC256) |
(I before E except after C en Yabasic) |
||
Line 4,724: | Line 4,724: | ||
Plausible overall: no |
Plausible overall: no |
||
</pre> |
</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}}== |
=={{header|zkl}}== |