统计文字出现的次数

文本_逐字分割 (你的文本, 数组)
.计次循环首 (取数组成员数 (数组), i)
.判断开始 (数组 [i] ＝ “统计过的”)

.默认
tem.文字 ＝ 数组 [i]
tem.次数 ＝ 1
.计次循环首 (取数组成员数 (数组), j)
.判断开始 (j ＞ i)
.判断开始 (tem.文字 ＝ 数组 [j])
tem.次数 ＝ tem.次数 ＋ 1
数组 [j] ＝ “统计过的”
.默认

.判断结束

.默认

.判断结束

.计次循环尾 ()
加入成员 (result, tem)
.判断结束

.计次循环尾 ()