以 [小寫字符] 標(biāo)示出雜質(zhì)

gr33n

各位大大好:

1:
一個純凈的字符串, 是由字符 A, B, C, D 字符組成的。如:
ABDCDCDC

2:
一個不純凈的字符串, 是由字符 A, B, C, D, X 字符組成的。如:
ABDCDCDCXABBXXAA

3: 污染物 X 字符:
[考慮橫向時:] 污染物 X 字符旁邊是
A: 1 字符被X污染, AXA...是雜質(zhì)。
B: 2 字符被X污染, AXBB, BBXA, ABXBB....是雜質(zhì)。
C: 3 字符被X污染, AXCCC, ABCXCAB, CCCXCBB, ABXCBA....是雜質(zhì)。
D: 4 字符被X污染, ABCDXDAAA, AXDCCC, ABXDDDD...是雜質(zhì)。       

污染不會穿透 X:
AXDXAB
雜質(zhì)為：AXDXA
不是：AXDXAB

4:
標(biāo)示出雜質(zhì), [ 同時考慮 X 橫向, 垂直向 ] 的污染                
一個不純凈的字符串組。如:


ABCABCDD
ABCXABBD
CCCCBBAA
DCAABCCX

結(jié)果以 [小寫字符] 標(biāo)示出雜質(zhì)。如:

ABCaBCDD
abcxaBBD
CCCcBBAa
DCAabccx




各位大大能不能給我這個標(biāo)示的腳本 ?

相等長度字符串組:
ABDCDCDCAAXCXCDCCABABDCDCDCAABXBABDCDCDCAABBCDCCAXDBBXABDCDCDCAABBCDXCCA
BBCDCCABBBABXCDCDCAABBCDXCCABBBBBABDCDCDCAABBCDCCAXBBBABCDAAAXBCDADCAXXX
XABCDCDCAAXBBCCDCCABABDCDCDCAABXBABDABACCCAXCDCDCAABBCDCCABBBXABDCDCDCAA
AACDCCAADCABDCDCDCAABXCDXCXABCDDBABDCDCDCAABBXBXCAABBBABCDAAAXBCDADCABBB
ADCAAAAAXABCDCCCCCDCABXBBCCDCCABABDCDCDCAABXBABDABDCCCAXCDCDCAAAAABBCDCC
XCCCAABDCAAXXAADCCCCCCAACCAAAAAAAAAXBBDCCXACDACDAAXCBBBBBBBAAABCADDCAAXC
XABCDCDCAAXBBCCDCCABABDCDCDCAABXBABDABACCCAXCDCDCAABBCDCCABBBXABDCDCDCAA

輸出為: ?

yestreenstars

樓主之前在Perl版發(fā)的那題被我轉(zhuǎn)來本版了，你的題目都有一個共同點，第一次看時都是看不懂，要看好幾遍才能看懂~廢話不多說，先來看看我的代碼是否能幫到你~

1. #樓主給的數(shù)據(jù)
   
2. [root@localhost ~]# cat i
   
3. ABDCDCDCAAXCXCDCCABABDCDCDCAABXBABDCDCDCAABBCDCCAXDBBXABDCDCDCAABBCDXCCA
   
4. BBCDCCABBBABXCDCDCAABBCDXCCABBBBBABDCDCDCAABBCDCCAXBBBABCDAAAXBCDADCAXXX
   
5. XABCDCDCAAXBBCCDCCABABDCDCDCAABXBABDABACCCAXCDCDCAABBCDCCABBBXABDCDCDCAA
   
6. AACDCCAADCABDCDCDCAABXCDXCXABCDDBABDCDCDCAABBXBXCAABBBABCDAAAXBCDADCABBB
   
7. ADCAAAAAXABCDCCCCCDCABXBBCCDCCABABDCDCDCAABXBABDABDCCCAXCDCDCAAAAABBCDCC
   
8. XCCCAABDCAAXXAADCCCCCCAACCAAAAAAAAAXBBDCCXACDACDAAXCBBBBBBBAAABCADDCAAXC
   
9. XABCDCDCAAXBBCCDCCABABDCDCDCAABXBABDABACCCAXCDCDCAABBCDCCABBBXABDCDCDCAA
   
10. 
    
11. #awk腳本1（用于橫向標(biāo)示雜質(zhì)）
    
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（用于行列轉(zhuǎn)換）
    
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. #運行方法和結(jié)果（運行前先賦予腳本a1和a2可執(zhí)行權(quán)限）
    
53. [root@localhost ~]# ./a1 i | ./a2 | ./a1 | ./a2
    
54. aBDCDCDCaaxcxcdcCABABDCDcDcAabxbaBDCDCDCAABbCdCcaxdbbxaBDCDCDcAAbbcdxcca
    
55. bBCDCCABbBabxcdcDCAAbbcdxccaBBbbBABDCDCDCAAbBcDcCaxbbbABCDAAaxbcDADCaxxx
    
56. xaBCDCDCaaxbbCCDCCABAbdCdCdCAabxbaBdABACCCaxcdcdCAaBBcDcCABbbxaBDCDCDcaa
    
57. aACDCCAAdCabdCDCDCAabxcdxcxaBCDdBABdCDCDCAAbbxbxcaaBBBAbCDAAaxbcDADCAbbB
    
58. aDCAAAAaxaBcdCCCCCDCabxbbCcDCCAbABDcDCDCAabxbaBdABdCCCaxcdcDCaAAAABBCdcC
    
59. xcccAABDcAaxxaADCCCCCcaAcCaAAAAaAAaxbbdccxacDACdAaxcbbBbBBBAAaBCADDCAaxc
    
60. xaBCDCDCaaxbbCCDCCABABDCDCdCAabxbaBdABACCcaxcdcdCAaBBCDcCABbbxaBDCDCDCaA

復(fù)制代碼

說一下我的思路：
1.先將雜質(zhì)橫向標(biāo)示出來，把FS和OFS都設(shè)置為空以便遍歷每個字母和輸出，再將腳本設(shè)置為忽略大小寫以便后面轉(zhuǎn)化為小寫字母后不影響if語句判斷，然后根據(jù)樓主的要求，對A、B、C、D的大小寫分別存入數(shù)組并賦值，然后從第一個字段開始遍歷每個字段，如果該字段為X或x（這就是為什么要設(shè)置忽略大小寫的原因）就從左邊的字段開始，根據(jù)字段對應(yīng)的數(shù)組a的值來判斷有多少個被感染了，然后將感染的轉(zhuǎn)化為小寫字母，如果遇到X就停止循環(huán)，再從右邊的字段開始判斷，判斷方法同上，最后將X轉(zhuǎn)化為x；
2.對轉(zhuǎn)化后的結(jié)果進行行列轉(zhuǎn)換；
3.對行列轉(zhuǎn)換后的結(jié)果進行橫向標(biāo)示雜質(zhì)；
4.最后再將結(jié)果轉(zhuǎn)換回來。

gr33n

啊!! 好厲害！謝謝！
結(jié)果出來的是正確的.

回復(fù) 2# yestreenstars


   

rdcwayx

厲害的， 四個小時之內(nèi)搞定。 還難倒perl/ruby 板塊的同學(xué)。

http://72891.cn/thread-4103214-1-1.html
http://72891.cn/thread-4103213-1-1.html

yestreenstars

回復(fù) 4# rdcwayx
一開始看不懂時打算放棄的，然后跑去打游戲了，打了一段時間后再回來看看，突然就懂了，呵呵，然后就開始寫代碼了~

   

reyleon

看懂題目是關(guān)鍵，我表示一時半會兒沒看懂

seesea2517

太高級，看不懂，很專業(yè)的問題啊。

rdcwayx

看第二頁的十三樓

damcool

湊湊熱鬧，來個行列統(tǒng)一版。

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. }
    

復(fù)制代碼

運行方式及結(jié)果：

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
   

復(fù)制代碼

rdcwayx

還是沒看到在一條awk內(nèi)搞定的。