计算字符串中每个字符出现的次数

【问题标题】：Count the number of occurrences of each character in a string计算字符串中每个字符出现的次数
【发布时间】：2022-10-15 15:48:55
【问题描述】：

尝试了ZitRo 发布的解决方案，但我遇到了错误 - 标签内 QUIT 的使用不一致。有什么想法可以解决这个问题吗？

n key,char,i
s ary(1)="abcabc aba"
s key =""
f{
  s key=$Order(ary(key))
  i key="" q
  f i=1:1:$L(ary(key)){
    set char=$E(ary(key),i)
    set countByChar(char)=$get(countByChar(char))+1}}   
q countByChar

【问题讨论】：

这看起来不像标准的 ANSI Mumps，所以应该有不同的标签

标签： mumps

【解决方案1】：

设法弄清楚。错误信息是因为代码中有两个退出，一个退出有值，一个完全没有值。

最终代码：

    n key,char,i,total
    s ary(1)="abcabc aba"
    s ary(2)=123    
    s key =""
    s total=0
    f  s key=$Order(ary(key)) q:key=""  f i=1:1:$L(ary(key)) s char=$E(ary(key),i) s countByChar(char)=$get(countByChar(char))+1 s total=total+1
    zwrite countByChar 
    w total

【讨论】：