帮我写个循环

killunix

对以下字母进行编码

1. A-B-B-B-B-C-D-D-D-D-E

复制代码

A=1
B1=1
B2=2
B3=3
B4=4
c=1
D1=1
D2=2
D3=3
D4=4


假设有一个数组a,  内容为：A,B,B,B,B,C,D,D,D,D,E
生成一个数组b，元素A1,B1,B2,B3,B4,C1,D1,D2,D3,D4,E1

[ 本帖最后由 killunix 于 2010-1-30 07:10 PM 编辑 ]

ksbzb

hba

没弄懂啥意思，不是专业软件设计科班出身的，不太懂这些名词术语啊。
A-B-B-B-B-C-D-D-D-D-E
1-1-2-3-4-1-1-2-3-4-?
好像漏了一个E，是数字循环排列吗？

superxx

怎么看不懂要求啊，智商不够高啊。

killunix

A-B-B-B-B-C-D-D-D-D-E
不一定是顺序排列
A-B-B-B-C-B-D-D-D-E
要求是
A1-B1-B2-B3-C1-B4-D1-D2-D3-D4-E1

seagate

这个很简单阿!你一个循环就可以完成了.每次读一个元素然后存下来比较,如果一样加1,不一样初始化.
大体就这个路子. 数据库哪里有更简单的处理办法，但是在mud里面只能自己实现这个过程了。
大体路子如下：
#local $item,$itemsno,$item2
$itemsno=0
#loop numitems(@list) {
$item=%item(@list,%i)
#if $itemsno=0 {$item2=$item;$itemsno=1} {
  #if $item!=$item2 {$item2=$item;$itemsno=1}}
$itemsno++
}