以 [小写字符] 标示出杂质

gr33n

各位大大好:

1:
一个纯净的字符串, 是由字符 A, B, C, D 字符组成的。如:
ABDCDCDC

2:
一个不纯净的字符串, 是由字符 A, B, C, D, X 字符组成的。如:
ABDCDCDCXABBXXAA

3: 污染物 X 字符:
[考虑横向时:] 污染物 X 字符旁边是
A: 1 字符被X污染, AXA...是杂质。
B: 2 字符被X污染, AXBB, BBXA, ABXBB....是杂质。
C: 3 字符被X污染, AXCCC, ABCXCAB, CCCXCBB, ABXCBA....是杂质。
D: 4 字符被X污染, ABCDXDAAA, AXDCCC, ABXDDDD...是杂质。       

污染不会穿透 X:
AXDXAB
杂质为：AXDXA
不是：AXDXAB

4:
标示出杂质, [ 同时考虑 X 横向, 垂直向 ] 的污染                
一个不纯净的字符串组。如:


ABCABCDD
ABCXABBD
CCCCBBAA
DCAABCCX

结果以 [小写字符] 标示出杂质。如:

ABCaBCDD
abcxaBBD
CCCcBBAa
DCAabccx




各位大大能不能给我这个标示的脚本 ?

相等长度字符串组:
ABDCDCDCAAXCXCDCCABABDCDCDCAABXBABDCDCDCAABBCDCCAXDBBXABDCDCDCAABBCDXCCA
BBCDCCABBBABXCDCDCAABBCDXCCABBBBBABDCDCDCAABBCDCCAXBBBABCDAAAXBCDADCAXXX
XABCDCDCAAXBBCCDCCABABDCDCDCAABXBABDABACCCAXCDCDCAABBCDCCABBBXABDCDCDCAA
AACDCCAADCABDCDCDCAABXCDXCXABCDDBABDCDCDCAABBXBXCAABBBABCDAAAXBCDADCABBB
ADCAAAAAXABCDCCCCCDCABXBBCCDCCABABDCDCDCAABXBABDABDCCCAXCDCDCAAAAABBCDCC
XCCCAABDCAAXXAADCCCCCCAACCAAAAAAAAAXBBDCCXACDACDAAXCBBBBBBBAAABCADDCAAXC
XABCDCDCAAXBBCCDCCABABDCDCDCAABXBABDABACCCAXCDCDCAABBCDCCABBBXABDCDCDCAA

输出为: ?

yestreenstars

楼主之前在Perl版发的那题被我转来本版了，你的题目都有一个共同点，第一次看时都是看不懂，要看好几遍才能看懂~废话不多说，先来看看我的代码是否能帮到你~

1. #楼主给的数据
   
2. [root@localhost ~]# cat i
   
3. ABDCDCDCAAXCXCDCCABABDCDCDCAABXBABDCDCDCAABBCDCCAXDBBXABDCDCDCAABBCDXCCA
   
4. BBCDCCABBBABXCDCDCAABBCDXCCABBBBBABDCDCDCAABBCDCCAXBBBABCDAAAXBCDADCAXXX
   
5. XABCDCDCAAXBBCCDCCABABDCDCDCAABXBABDABACCCAXCDCDCAABBCDCCABBBXABDCDCDCAA
   
6. AACDCCAADCABDCDCDCAABXCDXCXABCDDBABDCDCDCAABBXBXCAABBBABCDAAAXBCDADCABBB
   
7. ADCAAAAAXABCDCCCCCDCABXBBCCDCCABABDCDCDCAABXBABDABDCCCAXCDCDCAAAAABBCDCC
   
8. XCCCAABDCAAXXAADCCCCCCAACCAAAAAAAAAXBBDCCXACDACDAAXCBBBBBBBAAABCADDCAAXC
   
9. XABCDCDCAAXBBCCDCCABABDCDCDCAABXBABDABACCCAXCDCDCAABBCDCCABBBXABDCDCDCAA
   
10. 
    
11. #awk脚本1（用于横向标示杂质）
    
12. [root@localhost ~]# cat a1
    
13. #!/bin/awk -f
    
14. BEGIN{
    
15.         FS=OFS="";
    
16.         IGNORECASE=1;
    
17.         a["a"]=a["A"]=1;
    
18.         a["b"]=a["B"]=2;
    
19.         a["c"]=a["C"]=3;
    
20.         a["d"]=a["D"]=4;
    
21. }
    
22. {
    
23.         for(i=1;i<=NF;i++){
    
24.                 if($i=="X"){
    
25.                         for(j=i-1;j>=i-a[$(i-1)]&&j>=1;j--){
    
26.                                 if($j=="X")break;
    
27.                                 $j=tolower($j)
    
28.                         }
    
29.                         for(j=i+1;j<=i+a[$(i+1)]&&j<=NF;j++){
    
30.                                 if($j=="X")break;
    
31.                                 $j=tolower($j)
    
32.                         }
    
33.                         $i=tolower($i)
    
34.                 }
    
35.         }
    
36. }
    
37. 1
    
38. 
    
39. #awk脚本2（用于行列转换）
    
40. [root@localhost ~]# cat a2
    
41. #!/bin/awk -f
    
42. BEGIN{
    
43.         FS=""
    
44. }
    
45. {
    
46.         for(i=1;i<=NF;i++)a[i]=a[i]$i
    
47. }
    
48. END{
    
49.         for(i=1;i<=NF;i++)print a[i]
    
50. }
    
51. 
    
52. #运行方法和结果（运行前先赋予脚本a1和a2可执行权限）
    
53. [root@localhost ~]# ./a1 i | ./a2 | ./a1 | ./a2
    
54. aBDCDCDCaaxcxcdcCABABDCDcDcAabxbaBDCDCDCAABbCdCcaxdbbxaBDCDCDcAAbbcdxcca
    
55. bBCDCCABbBabxcdcDCAAbbcdxccaBBbbBABDCDCDCAAbBcDcCaxbbbABCDAAaxbcDADCaxxx
    
56. xaBCDCDCaaxbbCCDCCABAbdCdCdCAabxbaBdABACCCaxcdcdCAaBBcDcCABbbxaBDCDCDcaa
    
57. aACDCCAAdCabdCDCDCAabxcdxcxaBCDdBABdCDCDCAAbbxbxcaaBBBAbCDAAaxbcDADCAbbB
    
58. aDCAAAAaxaBcdCCCCCDCabxbbCcDCCAbABDcDCDCAabxbaBdABdCCCaxcdcDCaAAAABBCdcC
    
59. xcccAABDcAaxxaADCCCCCcaAcCaAAAAaAAaxbbdccxacDACdAaxcbbBbBBBAAaBCADDCAaxc
    
60. xaBCDCDCaaxbbCCDCCABABDCDCdCAabxbaBdABACCcaxcdcdCAaBBCDcCABbbxaBDCDCDCaA

复制代码

说一下我的思路：
1.先将杂质横向标示出来，把FS和OFS都设置为空以便遍历每个字母和输出，再将脚本设置为忽略大小写以便后面转化为小写字母后不影响if语句判断，然后根据楼主的要求，对A、B、C、D的大小写分别存入数组并赋值，然后从第一个字段开始遍历每个字段，如果该字段为X或x（这就是为什么要设置忽略大小写的原因）就从左边的字段开始，根据字段对应的数组a的值来判断有多少个被感染了，然后将感染的转化为小写字母，如果遇到X就停止循环，再从右边的字段开始判断，判断方法同上，最后将X转化为x；
2.对转化后的结果进行行列转换；
3.对行列转换后的结果进行横向标示杂质；
4.最后再将结果转换回来。

gr33n

啊!! 好厉害！谢谢！
结果出来的是正确的.

回复 2# yestreenstars


   

rdcwayx

厉害的， 四个小时之内搞定。 还难倒perl/ruby 板块的同学。

http://bbs.chinaunix.net/thread-4103214-1-1.html
http://bbs.chinaunix.net/thread-4103213-1-1.html

yestreenstars

回复 4# rdcwayx
一开始看不懂时打算放弃的，然后跑去打游戏了，打了一段时间后再回来看看，突然就懂了，呵呵，然后就开始写代码了~

   

reyleon

看懂题目是关键，我表示一时半会儿没看懂

seesea2517

太高级，看不懂，很专业的问题啊。

rdcwayx

看第二页的十三楼

damcool

凑凑热闹，来个行列统一版。

1. #!/bin/awk
   
2. {
   
3.         ord["A"]=1;
   
4.         ord["B"]=2;
   
5.         ord["C"]=3;
   
6.         ord["D"]=4;
   
7.         x=0;
   
8.         n=split($0,a,"");
   
9.         for (i=1;i<=n;i++)
   
10.         {
    
11.                 if (toupper(a[i])=="X")
    
12.                 {
    
13.                         x=ord[a[i+1]];
    
14.                         b[i]=5;
    
15.                         printf "x";
    
16.                 }
    
17.                 else
    
18.                 {
    
19.                         if (b[i]==5) b[i]=ord[toupper(a[i])];
    
20.                         a1=a[i]a[i+1]
    
21.                         a2=a[i]a[i+1]a[i+2]
    
22.                         a3=a[i]a[i+1]a[i+2]a[i+3]
    
23.                         a4=a[i]a[i+1]a[i+2]a[i+3]a[i+4]
    
24.                         if (x>0 || b[i]>0 || match(a1,/[A-D]X/) || match(a2,/[A-D][B-D]X/) || match(a3,/[A-D][A-D][C-D]X/) || match(a4,/[A-D][A-D][A-D]DX/))
    
25.                         {
    
26.                                 printf tolower(a[i]);
    
27.                                 x=(x>0)?--x:0;
    
28.                                 b[i]=(b[i]>0)?b[i]-1:0;
    
29.                         }
    
30.                         else printf a[i];
    
31.                 }
    
32.         }
    
33.         printf "\n";x=0;
    
34. }
    

复制代码

运行方式及结果：

1. cat /tmp/chars |awk -f scripts/contaminate.awk|tac|awk -f scripts/contaminate.awk|tac
   
2. aBDCDCDCaaxcxcdcCABABDCDcDcAabxbaBDCDCDCAABbCdCcaxdbbxaBDCDCDcAAbbcdxcca
   
3. bBCDCCABbBabxcdcDCAAbbcdxccaBBbbBABDCDCDCAAbBcDcCaxbbbABCDAAaxbcDADCaxxx
   
4. xaBCDCDCaaxbbCCDCCABAbdCdCdCAabxbaBdABACCCaxcdcdCAaBBcDcCABbbxaBDCDCDcaa
   
5. aACDCCAAdCabdCDCDCAabxcdxcxaBCDdBABdCDCDCAAbbxbxcaaBBBAbCDAAaxbcDADCAbbB
   
6. aDCAAAAaxaBcdCCCCCDCabxbbCcDCCAbABDcDCDCAabxbaBdABdCCCaxcdcDCaAAAABBCdcC
   
7. xcccAABDcAaxxaADCCCCCcaAcCaAAAAaAAaxbbdccxacDACdAaxcbbBbBBBAAaBCADDCAaxc
   
8. xaBCDCDCaaxbbCCDCCABABDCDCdCAabxbaBdABACCcaxcdcdCAaBBCDcCABbbxaBDCDCDCaA
   

复制代码

rdcwayx

还是没看到在一条awk内搞定的。