找出缺少的行

心若寒江雪

此问题有两种可能，现在列举出每种可能的一个特定的文本信息：

类型1

1. 12 R1C1
   
2. 12 R1C2
   
3. 12 R1C3
   
4. 12 R1C4
   
5. 12 R2C1
   
6. 12 R2C2
   
7. 12 R2C3
   
8. 12 R2C4
   
9. 12 R3C1
   
10. 12 R3C2
    
11. 12 R3C4

复制代码

类型2

1. 12 R1C1
   
2. 12 R1C2
   
3. 12 R1C3
   
4. 12 R2C1
   
5. 12 R2C2
   
6. 12 R2C3
   
7. 12 R2C4
   
8. 12 R3C1
   
9. 12 R3C2
   
10. 12 R3C4

复制代码

问题描述：
数字12表示一共有12行
目的是找出缺少那一行
比如第一类就缺少了R3C3，而第二种则缺少了R1C4和R3C3

心若寒江雪

想到一个这样的思路，但是感觉有点费事，求大牛给出高大上解决方法

1. for i in `seq 3`
   
2. do
   
3.     for i in `seq 4`
   
4.     do
   
5.          something
   
6.     done
   
7. done

复制代码

qq58945591

菜鸟路过，高大上没有。笨办法一个。学习shell，喜欢各种折腾，虽然有点牵强。凑合着交作业了。等大神出压缩版。
for i in `seq 1 3`
do
        for j in `seq 1 4`
        do
        a=R${i}C${j}
        echo "12 $a" >> work2
        sleep 1
        done
done
diff -u work work2





--- work        2014-09-18 00:12:33.670199660 +0800
+++ work2        2014-09-18 01:50:41.311853027 +0800
@@ -1,10 +1,12 @@
12 R1C1
12 R1C2
12 R1C3
+12 R1C4
12 R2C1
12 R2C2
12 R2C3
12 R2C4
12 R3C1
12 R3C2
+12 R3C3
12 R3C4

reb00t

1. <?php
   
2. 
   
3. $f = file('200.txt');
   
4. foreach ($f as $k => $v) {
   
5.   $arr = preg_split('/C/', trim($v));
   
6.   $newarr[$arr[0]].=$arr[1];
   
7. }
   
8. foreach ($newarr as $kk => $vv) {
   
9. for ($i=1; $i <=4 ; $i++) {
   
10.         if(strpos("$vv", "$i")===false)
    
11.                 echo  $kk."C".$i."\n";
    
12. }
    
13. 
    
14. }
    
15. 
    
16. ?>

复制代码

已测试～

1. awk -FC '{a[$1]=a[$1]?a[$1]$2:$2}END{for(i in a) for(n=1;n<=4;n++)if(!index(""a[i]"",""n"")) print i"C"n}' 4

复制代码

坐等awk精简代码！

reyleon

文本是已经排好序了的么?

Herowinter

回复 1# 心若寒江雪

1. awk 'BEGIN{for(i=1;i<=3;i++)for(j=1;j<=4;j++)a["R"i,"C"j]} {delete a[substr($2,1,2),substr($2,3)]} END{for(i in a)print i}' 1.txt
   
2. R3C3
   
3. 
   
4. awk 'BEGIN{for(i=1;i<=3;i++)for(j=1;j<=4;j++)a["R"i,"C"j]} {delete a[substr($2,1,2),substr($2,3)]} END{for(i in a)print i}' 2.txt
   
5. R1C4
   
6. R3C3

复制代码

Kasiotao

回复 1# 心若寒江雪
。。。写的不好轻拍

1. awk -F'[RC]' '{r=int(i/4+1);c=i%4+1;if(r==$2&&c==$3)i++;else{print $1" R"r"C"c;i+=2}}' testfile

复制代码

reyleon

1. awk '{k=substr($2,1,3);a[$1 FS k];b[$1 FS $2]}END{for(i in a)for(j=0;j++<4;)if(!(i""j in b))print i""j}'

复制代码