Merge awk solutions.

2017/day-04/solution.awk

@@ -10,24 +10,37 @@ function word2key(word, a, i, n, result)
 }
 
 BEGIN {
-	valid=0
+	valid1=0
+	valid2=0
 }
 {
 	duplicates=0
+	anagrams=0
 	for (i=1;i<=NF;i++) {
 		a[word2key($i)]++
+		b[$i]++
 	}
 	for (x in a)
 	{
-		if(a[x]>1)
-			duplicates++
-	}
-	for (x in a)
+		if (a[x] > 1)
+			anagrams++
 		delete a[x]
+	}
+	for (x in b) {
+		if (b[x] > 1)
+			duplicates++
 
-	if(duplicates==0)
-		valid++
+		delete b[x]
+	}
+
+	if (duplicates == 0)
+		valid1++
+
+	if (anagrams == 0)
+		valid2++
 }
 END {
-	print valid
+	print valid1
+	print valid2
 }
+

2017/day-04/solution1.awk

@@ -1,22 +0,0 @@
-BEGIN {
-	valid=0
-}
-{
-	duplicates=0
-	for (i=1;i<=NF;i++) {
-		a[$i]++
-	}
-	for (x in a)
-	{
-		if(a[x]>1)
-			duplicates++
-	}
-	for (x in a)
-		delete a[x]
-
-	if(duplicates==0)
-		valid++
-}
-END {
-	print valid
-}