关于字符串求助
一个字符串变换的函数，输入的字符串为英文字母，其中连续出现的次数不超过9次，输出为输入的英文字符+连续出现的次数 ，例如 “ABBCCCC”-> “A1B2C4”。
求大神帮助
%% Author: Administrator
%% Created: 2013-10-22
% Description: TODO: Add description to abc
-module(abc).
-author(tiger).
-purpose(test).
-export(staticN/2]).
whatN(H,[H
[解决办法]
T],{ACC,L}) -> whatN( H, T,{ ACC+1 ,L });
whatN(I,[H
[解决办法]
T],{ACC,L})->whatN( I, T,{ ACC,[H
[解决办法]
L ]});
whatN(_I,[],{ACC,L})->{ACC,L}. %%如果要保持输出顺序不变，这里改为{ACC,lists:reverse( L)}.
staticN([],L)->L ;
staticN([H
[解决办法]
T],L)->
{Num,List}=whatN( H,[ H
[解决办法]
T],{ 0,[]}),
if
Num >=2-> staticN(List,[{H,Num}
[解决办法]
L]);
Num<2 ->staticN(List ,L )
end.
=========================================================================
12> abc:staticN([1,2,3,4,2,5,6,6,a,b,e,f,d,e,9,9,y,y,u,4,3,7,9,1],[]).
[{e,2},{y,2},{6,2},{4,2},{3,2},{2,2},{9,3},{1,2}]
