I before E except after C: Difference between revisions
→{{header|langur}}
Not a robot (talk | contribs) (Add SETL) |
Langurmonkey (talk | contribs) |
||
| (5 intermediate revisions by 2 users not shown) | |||
Line 2,701:
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,116:
Also there are seven words which fall into two categories and which have therefore been double-counted.
<syntaxhighlight lang="
import "./pattern" for Pattern
import "./fmt" for Fmt
var yesNo = Fn.new { |b| (b) ? "yes" : "no" }
Line 5,162 ⟶ 5,198:
And the code and results for the 'stretch goal' which has just the one double-counted word:
<syntaxhighlight lang="
import "./pattern" for Pattern
import "./fmt" for Fmt
var yesNo = Fn.new { |b| (b) ? "yes" : "no" }
Line 5,241 ⟶ 5,277:
Plausible overall: no
</pre>
=={{header|Yabasic}}==
| |||