erlang学习:用ETS和DETS存储数据2

今日学习创建一个ETS表

下面是代码实现

erlang 复制代码
-module(lib_trigrams).

-export([make_ets_set/0, make_ets_ordered_set/0]).
for_each_trigram_in_the_english_language(F, A0) ->
  {ok, Bin0} = file:read_file("test.txt"),
  Bin = zlib:gunzip(Bin0),
  scan_word_list(binary_to_list(Bin), F, A0).


scan_word_list([], _, A) ->
  A;
scan_word_list(L, F, A) ->
  {word, L1} = get_next_word(L, []),
  A1 = scan_trigrams([$\s | word], F, A),
  scan_word_list(L1, F, A1).

get_next_word([$\r, $\n | T], L) ->
  {lists:reverse([$\s | L]), T};
get_next_word([H | T], L) ->
  get_next_word(T, [H | L]);
get_next_word([], L) ->
  {lists:reverse([$\s | L]), []}.


scan_trigrams([X, Y, Z], F, A) ->
  F([X, Y, Z], A);
scan_trigrams([X, Y, Z | T], F, A) ->
  A1 = F([X, Y, Z], A),
  scan_trigrams([Y, Z | T], F, A1);
scan_trigrams(_, _, A) ->
  A.


make_ets_ordered_set() -> make_a_set(ordered_set, "trigramsOS.tab").
make_ets_set() -> make_a_set(set, "trigramsS.tab").


make_a_set(Type, FileName) ->
  Tab = ets:new(table, [Type]),
  F = fun(Str, _) -> ets:insert(Tab, {list_to_binary(Str)}) end,
  for_each_trigram_in_the_english_language(F, 0),
  ets:tab2file(Tab, FileName),
  Size = ets:info(Tab, size),
  ets:delete(Tab),
  Size.

书上代码中的reverse没有lists,因此会报错,需要改为lists:reverse

搞了个txt文本之后报错为数据异常,有点没搞明白txt文档里面要存什么数据

相关推荐
wyn2000112818 分钟前
Hive学习笔记
hive·笔记·学习
Faiz..19 分钟前
AIDL学习
学习
人工智能转人机32 分钟前
16day-人工智能-机器学习-特征工程
人工智能·学习·机器学习·特征工程
努力自学的小夏41 分钟前
RK3568 Linux驱动学习——字符设备驱动开发
linux·驱动开发·笔记·学习
艾莉丝努力练剑1 小时前
【数据结构与算法】顺序表和链表、栈和队列、二叉树、排序等数据结构的完整代码收录
c语言·数据结构·学习·链表
老虎06272 小时前
JavaWeb(苍穹外卖)--学习笔记17(Websocket)
笔记·websocket·学习
★YUI★3 小时前
学习游戏制作记录(将各种属性应用于战斗以及实体的死亡)8.5
学习·游戏·unity·c#
yiqiqukanhaiba3 小时前
江协科技STM32学习笔记1
科技·stm32·学习
牧天白衣.4 小时前
可验证随机函数-VRF
学习·密码学
图灵学术计算机论文辅导5 小时前
从 “看懂图” 到 “读懂视频”:多模态技术如何用文本反哺视觉?
论文阅读·人工智能·学习·考研·计算机视觉·目标跟踪