各位大虾，小弟有难啊！

yuanquan08

我想对一个带括号的字符串解析，可是总得不到想要的结果：

t  = （A interact  ((B  or  C)  or (((D inside E) or F)  inside G)))

我想要的结果为：
t0 =  A_B
t1 =  A_C
t2 =  A_D_E_G
t3 =  A_F_G
(遇到interact/inside用"_"将两个变量变成一个变量，并参与后续运算；遇到or就将两个变量分别参与后续运算)

谢谢各位！！！

yuanquan08

自己顶一下！

pitonas

这个问题太难，
没有人知道，{:2_171:}

yuanquan08

真是悲催阿！！！！{:2_175:}

pitonas

{:2_167:} 小伙伴们, 这个问题超难！
回复 4# yuanquan08


   

zhlong8

先把你这个字符串转换成结构化的数据，再想办法找出所有组合。

第一步即使不会用正则表达式的方法也可以先分割字符，再用栈组合起来。

第二步就是个递归。

felonwan

感觉这些东西像是布尔网络、人工智能有关，是不是有专业软件可以用哈？

rubyish

biru:

1. #!/usr/bin/perl
   
2. 
   
3. sub Or { @_ }
   
4. 
   
5. sub In {
   
6.     map join( '_', split /\|/ ),
   
7.     glob '{' . join( '}{', map join( '|,', @$_ ) . '|', @_ ) . '}';
   
8. }
   
9. 
   
10. sub Which { shift eq 'or' }
    
11. 
    
12. sub From {
    
13.     map { s/(\w+)/'$1',/g; s/\(/[/g; s/\)/],/g; eval } shift
    
14. }
    
15. 
    
16. sub Extract {
    
17.     my ( $Operator, @Operand ) = @{ +shift }[ 1, 0, 2 ];
    
18.     Which($Operator) ?
    
19.     Or  map { ref $_ ?   Extract($_)   :  $_  } @Operand :
    
20.     In  map { ref $_ ? [ Extract($_) ] : [$_] } @Operand
    
21. }
    
22. 
    
23. 
    
24. 
    
25. my $String  = <DATA>;
    
26. my @Result  = Extract From $String;
    
27. print $_ . $/ for @Result;
    
28. 
    
29. __DATA__
    
30. (A interact  ((B  or  C)  or (((D inside E) or F)  inside G)))
    

复制代码

felonwan

楼上牛！

这好像是一个加法和乘法的分配律、结合律问题，只含加法和乘法的多项式展开。。。
直接替换“interact”及“inside”为“*”，替换“or”为“+”，然后放到符号计算工具里一算，结果里的各项就是楼主要的各项。

MMMIX

回复 9# felonwan


    对头，就是个多项式展开。