From 51796598033289595020678eb1b8f3b4bcf9b878 Mon Sep 17 00:00:00 2001
From: "Jan \"Yenya\" Kasprzak" <kas@fi.muni.cz>
Date: Sun, 6 Dec 2020 11:44:16 +0100
Subject: [PATCH] 12.pl ocesane o debugovaci bastly

---
 12.pl | 8 +++-----
 1 file changed, 3 insertions(+), 5 deletions(-)

diff --git a/12.pl b/12.pl
index c24e26c..c8b97b9 100755
--- a/12.pl
+++ b/12.pl
@@ -1,7 +1,6 @@
 #!/usr/bin/perl -w
 
 use strict;
-use Data::Dumper;
 
 local $/ = "\n\n";
 
@@ -10,12 +9,11 @@ my $sum = 0;
 while (<>) {
 	my $nper = 0;
 	my %q;
-	for my $per (split /\n/) {
+	for (split /\n/) {
 		$nper++;
-		$q{$_}++ for grep { /\S/ } split(//, $per);
+		$q{$_}++ for split //;
 	}
-	my $count = grep { $q{$_} == $nper } keys %q;
-	$sum += $count;
+	$sum += grep { $q{$_} == $nper } keys %q;
 }
 
 print "$sum\n";
-- 
2.43.0