grip 列出相同字符串 （算法）

列出相同字符串


gripsw / declrv  
number / mei_nm,mei_i,mei_j,mei_k,mei_z,mei_n(99)
number / mei_b(99),mei_c(99,99)
string / mei_nn(99,80),mei_a(99,80)


mei_nm=11
mei_nn(1)='5s'
mei_nn(2)='9s'
mei_nn(3)='kk'
mei_nn(4)='ww'
mei_nn(5)='kk'
mei_nn(6)='sg'
mei_nn(7)='sg'
mei_nn(8)='kk'
mei_nn(9)='5s'
mei_nn(10)='5s'
mei_nn(11)='s'
mei_z=0
mei_i=0
mei_1:
mei_i=mei_i+1
ifthen/mei_n(mei_i)==0
mei_k=0
mei_z=mei_z+1


print/'______________________________' $$

print/'相同对象位置'
do/mei_2:,mei_j,mei_i,mei_nm

ifthen/mei_nn(mei_i)==mei_nn(mei_j)
mei_n(mei_j)=1
mei_k=mei_k+1

mei_c(mei_z,mei_k)=mei_j   $$ 相同对象位置
print/mei_c(mei_z,mei_k)   $$ 相同对象位置


endif
mei_2:
mei_a(mei_z)=mei_nn(mei_i)
mei_b(mei_z)=mei_k
print/''
print/'相同对象值'
print/mei_a(mei_z)  $$  相同对象值
print/''
print/'相同数量'
print/mei_b(mei_z)  $$   相同数量
endif
if/mei_i<mei_nm,jump/mei_1:


$$ mei_nm 对象总数
$$ mei_z  相同对象数量
$$ mei_a  相同对象值
$$ mei_b  相同对象 相同数量
$$ mei_c([1..mei_z],[1..mei_b])  相同对象位置

end:
halt

_____________________________________________________________________________ _

中磊UG二次开发教程 梅雷著 qq1821117007
学UG就上UG网 http://www.9sug.com/