diff options
| -rw-r--r-- | challenge-125/simon-proctor/raku/ch-2.raku | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/challenge-125/simon-proctor/raku/ch-2.raku b/challenge-125/simon-proctor/raku/ch-2.raku index 2ab4173e5a..45a70774c7 100644 --- a/challenge-125/simon-proctor/raku/ch-2.raku +++ b/challenge-125/simon-proctor/raku/ch-2.raku @@ -146,10 +146,10 @@ multi sub MAIN( *@data ) { say $tree; my $long = shift @routes; - my $result = $long.elems; + my $result = $long.elems - 1; for @routes -> $pos { if ($long (&) $pos).elems == 1 { - $result = $long.elems + $pos.elems - 1; + $result = $long.elems + $pos.elems - 2; last; } } |