erlang - list:foldl を使用して単語をハッシュテーブルに保存する方法

Question

私は2つの機能を持っています。1つは単語を読み込んでその単語をハッシュテーブルに保存すること、もう1つはハッシュテーブルに保存する必要がある単語(リスト)のコレクションです。問題を実行すると、「bad function function2」と表示されます。foldl 内で function2 を呼び出すのは間違っていることはわかっています。だから私の質問は、問題を引き起こさずに function3 内で function2 を使用する方法です。Function3 は、リストをパラメーターとして最初に呼び出されます。この割り当ての目標は、単語リストのハッシュテーブルを作成することです。ありがとうございました

    function2(Word,HashTable)->
case lists:keyfind(Word,1,HashTable) of
    {Key,Value}->
        lists:keyreplace(Word,1,HashTable,{Word,Value+1});
    false -> 
        lists:append({Word,1},HashTable)
end.


    function3(List)->
ResultTable={}, 
lists:foldl(Function2,ResultTable,List).