diff options
| author | Scimon <simon.proctor@gmail.com> | 2021-08-10 17:16:20 +0100 |
|---|---|---|
| committer | Scimon <simon.proctor@gmail.com> | 2021-08-10 17:16:20 +0100 |
| commit | c976e26a845911cf0226844acfc1e4c0e497c8c1 (patch) | |
| tree | b7f2facbcbd175cb2f885af8449070f2a0656435 | |
| parent | e808986da634b43d1ef36d0952ce8b2a2c5d821d (diff) | |
| download | perlweeklychallenge-club-c976e26a845911cf0226844acfc1e4c0e497c8c1.tar.gz perlweeklychallenge-club-c976e26a845911cf0226844acfc1e4c0e497c8c1.tar.bz2 perlweeklychallenge-club-c976e26a845911cf0226844acfc1e4c0e497c8c1.zip | |
Updatred based on changed definition
| -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; } } |