SKILL语言能不能用正则表达式？举一个情境list(buff MIM bandgap brand pin))

MAGA2020

hzyf 发表于 2022-5-26 17:00
正则表达式在B中匹配A: rexMatchp(A B)；

有BUG  ：a='("buff" "def" "acgute" "bull" "banaan" "merde" "pin" "dominda" "acuz")foreach(mem a
if(rexMatchp("^b" mem) then
remd(mem a)
);if
);foreach

LIST的第一个如果出现 b 为开头的，并不会被过滤掉！
输出结果为：

yulizi

MAGA2020 发表于 2022-5-27 11:39
有BUG  ：a='("buff" "def" "acgute" "bull" "banaan" "merde" "pin" "dominda" "acuz")foreach(mem a
if ...

上面已经有坛友回复如何改了

原因是 remd 是一个  destructive list 函数    会修改列表

MAGA2020

yulizi 发表于 2022-5-27 13:59
上面已经有坛友回复如何改了

原因是 remd 是一个  destructive list 函数    会修改列表

这个隐患可能是致命的

MAGA2020

amodaman 发表于 2022-5-26 17:31
还是你的思路正规一些。以前被正则表达式折磨坏了，有心结，所以一直不愿用它。
...

a='("buff" "def" "acgute" "bull" "banaan" "merde" "pin" "dominda" "acuz")
foreach(mem a
if(rexMatchp("^b" mem) then
remd(mem a)
);if
);foreach


前辈想请教，这个函数有BUG， 若列表的第一个是 b开头的，就会漏掉，可能是remd 函数会破坏掉原列表，所以试着修改了一下
a='("buff" "def" "acgute" "bull" "banaan" "merde" "pin" "dominda" "acuz")
c=a
foreach(mem a
if(rexMatchp("^b" mem) then
remd(mem c)
);if            

);foreach                    
结果一样；请问该怎怎样改，感觉隐患很大