From d1d38ba6239b89efd0941283d7c974cb48804614 Mon Sep 17 00:00:00 2001
From: Yanick Champoux <yanick@babyl.ca>
Date: Sat, 9 Dec 2023 15:05:07 -0500
Subject: [PATCH] wip

---
 2023/08/Part2.pm     | 77 +++++++++++++++++++++-----------------------
 2023/08/benchmark.pl |  3 +-
 2023/08/part2.t      |  9 ++----
 3 files changed, 42 insertions(+), 47 deletions(-)

diff --git a/2023/08/Part2.pm b/2023/08/Part2.pm
index 969720c..a71c525 100644
--- a/2023/08/Part2.pm
+++ b/2023/08/Part2.pm
@@ -36,56 +36,53 @@ sub get_cycle( $current, $directions, $nodes ) {
 
 }
 
+sub find_z($current,$next_index,$directions,$nodes) {
+
+    my $visited    = 0;
+
+    while ( ) {
+        $visited++;
+
+        $current =
+          $nodes->{$current}[ $directions->[ $next_index++ % @$directions ] ];
+
+        last if $current =~ /Z$/ 
+    }
+
+    return $visited, $current, $next_index;
+}
+sub speedrun($current,$next_index,$directions,$nodes,$n) {
+
+        $current =
+          $nodes->{$current}[ $directions->[ $next_index++ % @$directions ] ]
+            for 1..$n;
+
+    return $current;
+}
+
 sub solution_2 ($input) {
     my $p          = Part1::parse_input($input);
     my @directions = $p->{directions}->@*;
     my %nodes      = $p->{nodes}->%*;
 
-    my @paths;
-    my @initial = grep { /A$/ } keys %nodes;
-    for (@initial ) {
-        push @paths, [
-            Part2::get_cycle($_,\@directions,\%nodes)
-        ];
+    my $steps = 0;
+    my @paths = grep { /A$/ } keys %nodes;
+    my $next_index = 0;
+
+    until( all {/Z$/ } @paths ) {
+        my($incr,$current,$new_index) = find_z($paths[0],$next_index,\@directions,\%nodes);
+        $paths[0] = $current;
+        @paths = ( $current, map {
+                speedrun($paths[$_],$next_index,\@directions,\%nodes,$incr)
+            } 1..$#paths );
+        $next_index = $new_index;
+        $steps += $incr;
     }
 
-    my $visited = 0;
-    my @preloop = map { shift @$_   } @paths;
-    p @preloop;
-    my $pre = max @preloop;
-    $visited += $pre;
 
-    my @current = map { $preloop[$_] - $pre } 0..$#preloop;
-        p @current;p @paths;
-    for(0..$#current) {
-            while( $current[$_] <= 0 ) {
-                $current[$_] += $paths[$_][0];
-                push $paths[$_]->@*, shift $paths[$_]->@*;
-            }
-    }
-        p @current;p @paths;
-
-    until( none { $_ } @current ) {
-        use DDP; 
-        warn $visited;
-        p @current;p @paths;
-        my $incr = max @current;
-        warn $incr;
-        $visited += $incr;
-        for ( 0..$#current) {
-            $current[$_] -=  $incr;
-            while( $current[$_] < 0 ) {
-                $current[$_] += $paths[$_][0];
-                push $paths[$_]->@*, shift $paths[$_]->@*;
-            }
-        }
-    }
-
-    return $visited;
+    return $steps;
 
 
 }
 
 1;
-
-1;
diff --git a/2023/08/benchmark.pl b/2023/08/benchmark.pl
index 0d7280d..71ad82b 100644
--- a/2023/08/benchmark.pl
+++ b/2023/08/benchmark.pl
@@ -15,7 +15,7 @@ my $solutions = deserialize_file('solutions.yml');
 
 my @parts = (
     { part => 1, sub => \&Part1::solution_1, expected => $solutions->{1} },
-    { part => 2, sub => \&Part2::solution_2, expected => $solutions->{2} },
+#    { part => 2, sub => \&Part2::solution_2, expected => $solutions->{2} },
 );
 
 my $input = path('./input')->slurp;
@@ -36,6 +36,7 @@ for my $part (@parts) {
         language  => 'perl',
         part      => $part->{part},
         time      => $res->cpu_a / $res->iters,
+        persec    => $res->iters / $res->cpu_a,
         timestamp => DateTime->now->iso8601,
     };
     say to_json $result;
diff --git a/2023/08/part2.t b/2023/08/part2.t
index 50662fa..ef78de8 100644
--- a/2023/08/part2.t
+++ b/2023/08/part2.t
@@ -24,15 +24,12 @@ my %solutions = deserialize_file('solutions.yml')->%*;
 
 
 my $parsed = Part1::parse_input($example);
-is [Part2::get_cycle('11A',$parsed->{directions},$parsed->{nodes})] => [1,2];
-#use DDP; my @x =  Part2::get_cycle('22A',$parsed->{directions},$parsed->{nodes});p @x;
-is [Part2::get_cycle('22A',$parsed->{directions},$parsed->{nodes})] => [1,2,3];
+#is [Part2::get_cycle('11A',$parsed->{directions},$parsed->{nodes})] => [1,2];
+##use DDP; my @x =  Part2::get_cycle('22A',$parsed->{directions},$parsed->{nodes});p @x;
+#is [Part2::get_cycle('22A',$parsed->{directions},$parsed->{nodes})] => [1,2,3];
 
 
 is Part2::solution_2($example) => 6;
-exit;
-
-
 
 $parsed = Part1::parse_input($input);