File 从外部文件计算单词出现次数并使用Erlang显示它们？

我很难完全理解如何计算一个元素在文本文件中出现的次数。我能像这样读懂文件-

-module(list3).

-export([readlines/1]).

readlines(FileName) ->
{ok, Device} = file:open(FileName, [read]),
try get_all_lines(Device)
  after file:close(Device)
end.

get_all_lines(Device) ->
case io:get_line(Device, "") of
    eof  -> [];
    Line -> Line ++ get_all_lines(Device)
end.

我会将文本文件转换成一个字符串列表，我知道list:length或foldl通常会计算列表中的元素数量，返回总共有多少个单词，但是，我想列出文件中的单词以及出现了多少次。这会通过模式匹配来实现吗？我目前能想到的唯一解决方案是需要大量代码

---

任何提示都将不胜感激。

您可以在这里找到计算字数的示例：

我可能没有正确地表达这一点，请随时指出我应该修改的地方。