统计频率

#使用自然派十可以运行
令 书名 “/media/amo/e/xiaopy/uzhongguowenxue347.txt”
#令 汉字组 空组
#甲 我是曾育盼，我爱莫美婷。
#循 乙 甲 打印 乙
处理字 若 等于 符之 数甲 “ ” 无 若 在 数甲 汉字组 通设 合 汉字组# 数甲 加 引用 合 汉字组# 数甲 1 【组加 汉字组 数甲 通设 合 汉字组# 数甲 1 】
#循 乙 甲 处理字 乙
#打印 汉字组
#打印 引用 合 汉字组# 之 汉字组 2
#行读 书名 甲 打印 甲
#退出
#行读 书名 甲 循 甲 乙 处理字 乙
#打印 之 汉字组 2 打印 引用 合 汉字组# 之 汉字组 2
#令 次数 组循 汉字组 甲 引用 合 汉字组# 甲
#打印 之前 汉字组 100
#打印 之前 次数 100
#保存 /media/amo/e/xiaopy/hanzicishutongji.txt 附加 附加 空组 汉字组 次数
排序 令 果 数甲 循 组 长度 果 甲 若 等于 甲 减 长度 果 1 无 循 组 减 减 长度 果 甲 1 乙 若 大于 之 果 减 -1 乙 之 果 减 -2 乙 若 等于 乙 0 令 果 附加 附加 之前 果 减 -2 乙 之 果 减 -1 乙 之 果 减 -2 乙 令 果 合 附加 附加 之前 果 减 -2 乙 之 果 减 -1 乙 之 果 减 -2 乙 之后 果 减 0 乙 无 果
#令 测 （组之 3 5 8 7 9）
#打印 排序 测
#退出
同排序 令 果 数甲 循 组 长度 果 甲 若 等于 甲 减 长度 果 1 无 循 组 减 减 长度 果 甲 1 乙 若 大于 之 果 减 -1 乙 之 果 减 -2 乙 若 等于 乙 0 【令 果 附加 附加 之前 果 减 -2 乙 之 果 减 -1 乙 之 果 减 -2 乙 通令 汉字组 附加 附加 之前 汉字组 减 -2 乙 之 汉字组 减 -1 乙 之 汉字组 减 -2 乙】 【令 果 合 附加 附加 之前 果 减 -2 乙 之 果 减 -1 乙 之 果 减 -2 乙 之后 果 减 0 乙 通令 汉字组 合 附加 附加 之前 汉字组 减 -2 乙 之 汉字组 减 -1 乙 之 汉字组 减 -2 乙 之后 汉字组 减 0 乙】 无 果
#令 汉字组 （组之 我 爱 莫 美 婷）
#打印 同排序 测
#打印 测
#打印 汉字组
#退出
#打印 之前 同排序 次数 10
#打印 之前 汉字组 10
#打印 之前 次数 10
读取 /media/amo/e/xiaopy/hanzicishutongji.txt 乙
令 汉字组 之 乙 0 
令 次数 之 乙 1 
令 次数 组循 次数 甲 小整 数之 甲
#打印 次数
#打印 汉字组
令 次数 同排序 次数
保存 /media/amo/e/xiaopy/hanzicishutongjipaixu.txt 附加 附加 空组 汉字组 次数