diff options
| author | Mark Anderson <mark@frontrangerunner.com> | 2020-12-28 21:37:27 -0700 |
|---|---|---|
| committer | Mark Anderson <mark@frontrangerunner.com> | 2020-12-28 21:37:27 -0700 |
| commit | ce8e4aadf79d87ea1dbfdaa6d1c7a7c8d1346907 (patch) | |
| tree | e06f648c61c1c271714a91bd46e31540a4691efd /challenge-093 | |
| parent | 67b49cc60f1d584aa0a5aa0f8a641f2f338d5bbb (diff) | |
| download | perlweeklychallenge-club-ce8e4aadf79d87ea1dbfdaa6d1c7a7c8d1346907.tar.gz perlweeklychallenge-club-ce8e4aadf79d87ea1dbfdaa6d1c7a7c8d1346907.tar.bz2 perlweeklychallenge-club-ce8e4aadf79d87ea1dbfdaa6d1c7a7c8d1346907.zip | |
Challenge 93 Solutions
Diffstat (limited to 'challenge-093')
| -rw-r--r-- | challenge-093/mark-anderson/raku/ch-2.raku | 7 |
1 files changed, 3 insertions, 4 deletions
diff --git a/challenge-093/mark-anderson/raku/ch-2.raku b/challenge-093/mark-anderson/raku/ch-2.raku index be3c65a5c7..a24656c5df 100644 --- a/challenge-093/mark-anderson/raku/ch-2.raku +++ b/challenge-093/mark-anderson/raku/ch-2.raku @@ -30,12 +30,11 @@ sub sum-path(Node $node) { sub traverse($node, $sum) { $node.sum = $node.val + $sum; + traverse($node.left, $node.sum) if $node.left; + traverse($node.right, $node.sum) if $node.right; + unless $node.left or $node.right { $result += $node.sum; - return; } - - traverse($node.left, $node.sum) if $node.left; - traverse($node.right, $node.sum) if $node.right; } } |