I before E except after C: Difference between revisions

← Older edit

I before E except after C (view source)

Revision as of 23:15, 30 June 2024

2,271 bytes added , 7 days ago

Add ed example

Aartaka

110

edits

Revision as of 08:43, 6 December 2023 (view source) Not a robot (talk \| contribs) (Add SETL) ← Older edit		Latest revision as of 23:15, 30 June 2024 (view source) Aartaka (talk \| contribs) (Add ed example)
(6 intermediate revisions by 2 users not shown)
Line 1,840: E before I when preceded by C: not plausible. I before E except after C: not plausible.</pre> =={{header\|ed}}== There are two files, one per hypothesis. <syntaxhighlight lang="sed"> # i-before-e.ed H # Remove all the non-rule-related words v/(ie\|ei)/d # Replace the occurences with one-letter markers g/ei/s/./e/ g/ie/s/./i/ ,j # Remove 1 occurence of e (alternative) per two i (null) s/eii//g s/iie//g s/eii//g s/iie//g s/eii//g s/iie//g s/eii//g s/iie//g s/eii//g s/iie//g s/eii//g s/iie//g s/eii//g s/iie//g s/eii//g s/iie//g s/eii//g s/iie//g s/eii//g s/iie//g # Check whether there are more i's in the output (null hypothesis true) or not ,p Q </syntaxhighlight> <syntaxhighlight lang="sed"> # e-before-i-with-c.ed H # Remove all the non-rule-related words v/(cie\|cei)/d # Replace the occurences with one-letter markers g/ei/s/./e/ g/ie/s/./i/ ,j # Remove 1 occurence of i (alternative) per two e (null) s/iee// s/eei// s/iee// s/eei// s/iee// s/eei// s/iee// s/eei// s/iee// s/eei// s/iee// s/eei// s/iee// s/eei// s/iee// s/eei// s/iee// s/eei// s/iee// s/eei// s/iee// s/eei// s/iee// # Check whether there are more e's in the output (null hypothesis true) or not ,p Q </syntaxhighlight> {{out}} <pre>$ cat i-before-e.ed \| ed -lEGs unixdict.txt iiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiieeeeeeeeeeiiiiiii</pre> Has more i's so the "i before e" hypothesis is plausible. <pre>$ cat e-before-i-with-c.ed \| ed -lEGs unixdict.txt ieiiieiieiiiiieiiiiiiiiie</pre> Has more i's, so the "e before i when preceded by c" is not plausible. Thus, the whole rule is not plausible. =={{header\|Elixir}}== Line 2,701 ⟶ 2,791: rule is not plausible </pre> =={{header\|langur}}== {{trans\|Perl}} <syntaxhighlight lang="langur"> val words = split("\n", readfile("./data/unixdict.txt")) -> rest val print = impure fn(support, against) { val ratio = support / against writeln "{{support}} / {{against}} = {{ratio : r2}}:", (ratio < 2) * " NOT", " PLAUSIBLE" return if(ratio >= 2: 1; 0) } val ks = fw/ei cei ie cie/ var cnt = {:} for w in words { for k in ks { cnt[k; 0] += if(k in w: 1; 0) } } var support = cnt'ie - cnt'cie var against = cnt'ei - cnt'cei var result = print(support, against) result += print(cnt'cei, cnt'cie) writeln "Overall:", (result < 2) * " NOT", " PLAUSIBLE\n" </syntaxhighlight> {{out}} <pre>465 / 213 = 2.18: PLAUSIBLE 13 / 24 = 0.54: NOT PLAUSIBLE Overall: NOT PLAUSIBLE </pre> Line 5,080 ⟶ 5,206: Also there are seven words which fall into two categories and which have therefore been double-counted. <syntaxhighlight lang="~~ecmascript~~wren">import "io" for File import "./pattern" for Pattern import "./fmt" for Fmt var yesNo = Fn.new { \|b\| (b) ? "yes" : "no" } Line 5,162 ⟶ 5,288: And the code and results for the 'stretch goal' which has just the one double-counted word: <syntaxhighlight lang="~~ecmascript~~wren">import "io" for File import "./pattern" for Pattern import "./fmt" for Fmt var yesNo = Fn.new { \|b\| (b) ? "yes" : "no" } Line 5,241 ⟶ 5,367: Plausible overall: no </pre> =={{header\|Yabasic}}==