☰

ファイル内の可換列の数を数える

tag-icon • tag-icon text-processing awk
ファイル内の可換列の数を数える

私のファイルにはこのようなペアの文字列があります

A B
A C
B A
B C
C A

交換可能なペアがいくつあるかを数える方法を探しています。つまり、 とA BはB Aそのようなペアを 1 つ作りますが、B Cは作りません ( がないためC B)。

私は awk を使って作業しようとしましたが、現時点では推測しているだけです。

前もって感謝します。

答え1

なんとか解決できました

awk '{if ($2<$1) print $2" "$1; else print $1" "$2}' |sort filenames.* | uniq -d |wc -l

コードの最初の部分ではファイルをソートし、次に重複を削除します。

答え2

以下のスクリプトを試してみましたが、完璧に動作しました

for i in "A B" "B C" "C A"; do j=`echo $i | rev`;  p=`awk -v i="$i" -v j="$j" '$0 ~ i||$0 ~ j{if(!seen[$0]++)print }' filename|wc -l` ; if [[ $p == "2" ]] ;then echo "match found for $i"; awk -v i="$i" -v j="$j" '$0 ~ i||$0 ~ j{if(!seen[$0]++)print }' l1; else echo "match didnt found for $i";fi;echo "==============================================================";done

出力

match found for A B
A B
B A
==============================================================
match didnt found for B C
==============================================================
match found for C A
A C
C A
==============

答え3

$ awk '{seen[$1,$2]++} seen[$2,$1]{cnt++} END{print cnt+0}' file
2

答え4

awk交換可能なペア間の不均衡を数える代替案

awk '{if (com[$2"/"$1]>0){com[$2"/"$1]--}else{com[$1"/"$2]++}}
 END{print "Unbalanced commutations";for (c in com) if (com[c]>0){print c, com[c]; un=un+com[c]} print "and "(NR-un)/2" commutated pairs"}' file1

出力

Unbalanced commutations
B/C 1
and 2 commutated pairs

関連情報