Day 14 part 2: minor cleanup

diff --git a/2023/28.pl b/2023/28.pl
index 2d147f4829c4d98ef73fae13860894cf93a4745d..f0547dd171265e0e3348d555573bd006128570e8 100755 (executable)
--- a/2023/28.pl
+++ b/2023/28.pl
@@ -5,7 +5,8 @@ use v5.38;
 my $map; { local $/; $map = <>; }
 
 my (@score, %seen, $round);
-while (++$round) {
+while (!$seen{$map}) {
+       $seen{$map} = $round++;
        for (1 .. 4) {
                my $map1;
                do { # rotate the map:
@@ -16,9 +17,6 @@ while (++$round) {
        }
        $score[$round] +=()= substr($map, pos($map)) =~ /\n/g
                while $map =~ /O/g;
-
-       last if $seen{$map};
-       $seen{$map} = $round;
 }
 
 my $remains = (1000000000 - $round) % ($round - $seen{$map});