Letter frequency: Difference between revisions
Content deleted Content added
Add Nimrod |
|||
Line 598: | Line 598: | ||
[io:fwrite( "~p : ~p~n", [[X], dict:fetch(X, Dict)]) || X <- dict:fetch_keys(Dict)]. |
[io:fwrite( "~p : ~p~n", [[X], dict:fetch(X, Dict)]) || X <- dict:fetch_keys(Dict)]. |
||
</lang> |
</lang> |
||
=={{header|Euphoria}}== |
|||
{{works with|OpenEuphoria}} |
|||
<lang euphoria> |
|||
-- LetterFrequency.ex |
|||
-- Count frequency of each letter in own source code. |
|||
include std/console.e |
|||
include std/io.e |
|||
include std/text.e |
|||
sequence letters = repeat(0,26) |
|||
sequence content = read_file("LetterFrequency.ex") |
|||
content = lower(content) |
|||
for i = 1 to length(content) do |
|||
if content[i] > 96 and content[i] < 123 then |
|||
letters[content[i]-96] += 1 |
|||
end if |
|||
end for |
|||
for i = 1 to 26 do |
|||
printf(1,"%s: %d\n",{i+96,letters[i]}) |
|||
end for |
|||
if getc(0) then end if |
|||
</lang> |
|||
{{out}} |
|||
<pre> |
|||
a: 4 |
|||
b: 0 |
|||
c: 21 |
|||
-snip |
|||
x: 3 |
|||
y: 3 |
|||
z: 0 |
|||
</pre> |
|||
=={{header|F_Sharp|F#}}== |
=={{header|F_Sharp|F#}}== |