Rosetta Code

I before E except after C: Difference between revisions

Page Discussion

I before E except after C (view source)

Revision as of 15:00, 26 November 2023

20 bytes removed ,  7 months ago
m
→‎{{header|uBasic/4tH}}
imported>Thebeez
Line 4,626:
Do While Read (a)
w = Tok(0)
If FUNC(_Search(w, Dup("cei"))) > -1 Then x = x + 1
If FUNC(_Search(w, Dup("cie"))) > -1 Then y = y + 1
If FUNC(_Search(w, Dup("ie"))) > -1 Then p = p + 1
If FUNC(_Search(w, Dup("ei"))) > -1 Then q = q + 1
Loop
 
Anonymous user
Retrieved from "https://rosettacode.org/wiki/Special:MobileDiff/351883"