I before E except after C: Difference between revisions
Content added Content deleted
(Added another uBasic/4tH version) |
|||
Line 4,447: | Line 4,447: | ||
</pre> |
</pre> |
||
=={{header|uBasic/4tH}}== |
|||
{{trans|Power shell}} |
|||
<lang>If Set(a, Open ("unixdict.txt", "r")) < 0 Then Print "Cannot open \qunixdict.txt\q" : End |
|||
x = Set (y, Set (p, Set (q, 0))) |
|||
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 |
|||
Print "The plausibility of 'I before E when not preceded by C' is "; |
|||
Print Show (Iif (p>(q+q), "True", "False")) |
|||
Print "The plausibility of 'E before I when preceded by C' is "; |
|||
Print Show (Iif (x>(y+y), "True", "False")) |
|||
Print "The plausibility of the phrase 'I before E except after C' is "; |
|||
Print Show (Iif ((x>(y+y))*(p>(q+q)), "True", "False")) |
|||
Close a |
|||
End |
|||
_Search |
|||
Param (2) |
|||
Local (1) |
|||
For c@ = 0 to Len (a@) - Len (b@) |
|||
If Comp(Clip(Chop(a@,c@),Len(a@)-c@-Len(b@)),b@)=0 Then Unloop : Return (c@) |
|||
Next |
|||
Return (-1)</lang> |
|||
{{Out}} |
|||
<pre>The plausibility of 'I before E when not preceded by C' is True |
|||
The plausibility of 'E before I when preceded by C' is False |
|||
The plausibility of the phrase 'I before E except after C' is False |
|||
0 OK, 0:800 </pre> |
|||
=={{header|UNIX Shell}}== |
=={{header|UNIX Shell}}== |
||
<lang bash>#!/bin/sh |
<lang bash>#!/bin/sh |