killunix 发表于 2010-1-30 14:45:55

帮我写个循环

对以下字母进行编码A-B-B-B-B-C-D-D-D-D-EA=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 发表于 2010-1-30 15:33:12

ttk_02

hba 发表于 2010-1-30 15:43:23

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

superxx 发表于 2010-1-30 19:02:43

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

killunix 发表于 2010-1-30 19:12:44

回复 3# 的帖子

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 发表于 2010-1-30 21:42:49

这个很简单阿!你一个循环就可以完成了.每次读一个元素然后存下来比较,如果一样加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++
}
页: [1]
查看完整版本: 帮我写个循环