Letter frequency: Difference between revisions
Content added Content deleted
Not a robot (talk | contribs) (Add Refal) |
Langurmonkey (talk | contribs) |
||
Line 4,727: | Line 4,727: | ||
=={{header|langur}}== |
=={{header|langur}}== |
||
<syntaxhighlight lang="langur"> |
<syntaxhighlight lang="langur"> |
||
val countLetters = fn(s) { |
|||
for[= |
for[={:}] s2 in split(replace(s, RE/\P{L}/)) { |
||
_for[ |
_for[s2; 0] += 1 |
||
} |
} |
||
} |
} |
||
val |
val counts = countLetters(readfile("./fuzz.txt")) |
||
writeln join |
writeln join("\n", map(fn(k) { "{{k}}: {{counts[k]}}" }, keys(counts))) |
||
</syntaxhighlight> |
</syntaxhighlight> |
||