I before E except after C: Difference between revisions

Content added Content deleted
m (→‎{{header|REXX}}: added comments in the section header about assumptions made about the (default) dictionary. -- ~~~~)
m (→‎{{header|REXX}}: removed some dead code. -- ~~~~)
Line 81: Line 81:
if ie\==0 & ei\==0 then #.eiie=#.eiie+1 /*word contains both IE & EI*/
if ie\==0 & ei\==0 then #.eiie=#.eiie+1 /*word contains both IE & EI*/


if ie\==0 then do; #.iek=#.iek+1; if ie==1 then ie=999 /*word: IExxx*/
if ie\==0 then do; if ie==1 then ie=999 /*word starts with: IExxx */
if substr(u,ie-1, 1)=='C' then #.iec=#.iec+1
if substr(u,ie-1, 1)=='C' then #.iec=#.iec+1
else #.iex=#.iex+1
else #.iex=#.iex+1
end
end
if ei\==0 then do; #.eik=#.eik+1; if ei==1 then ei=999 /*word: EIxxx*/
if ei\==0 then do; if ei==1 then ei=999 /*word starts with: EIxxx */
if substr(u,ei-1, 1)=='C' then #.eic=#.eic+1
if substr(u,ei-1, 1)=='C' then #.eic=#.eic+1
else #.eix=#.eix+1
else #.eix=#.eix+1
end
end
end /*r*/
end /*r*/
Retrieved from "https://rosettacode.org/wiki/I_before_E_except_after_C"