diff options
| author | Mohammad S Anwar <Mohammad.Anwar@yahoo.com> | 2021-05-20 10:38:33 +0100 |
|---|---|---|
| committer | GitHub <noreply@github.com> | 2021-05-20 10:38:33 +0100 |
| commit | fba3258baed002b3d87d8ee0e557e23fb73c49ea (patch) | |
| tree | 70b196c0f98f89b6abbba96bcb22d0bb2cd8a95c | |
| parent | 9ce497d62fc136427710864c65cbdd76d9eff514 (diff) | |
| parent | 9824ab7d8bf87b5b709c0fcb17535f74d4969b80 (diff) | |
| download | perlweeklychallenge-club-fba3258baed002b3d87d8ee0e557e23fb73c49ea.tar.gz perlweeklychallenge-club-fba3258baed002b3d87d8ee0e557e23fb73c49ea.tar.bz2 perlweeklychallenge-club-fba3258baed002b3d87d8ee0e557e23fb73c49ea.zip | |
Merge pull request #4114 from Kaiepi/challenge-113
Revise Ben Davies' solution to part 2 of challenge 113
| -rw-r--r-- | challenge-113/ben-davies/raku/ch-2.raku | 7 |
1 files changed, 4 insertions, 3 deletions
diff --git a/challenge-113/ben-davies/raku/ch-2.raku b/challenge-113/ben-davies/raku/ch-2.raku index c747e68ffc..c58effc7a3 100644 --- a/challenge-113/ben-davies/raku/ch-2.raku +++ b/challenge-113/ben-davies/raku/ch-2.raku @@ -13,8 +13,8 @@ role BTree[::T] { self.new: |args } - multi method sum(::?ROLE:U: --> 0) { } - multi method sum(::?ROLE:D: --> Int:D) { $!value + $!left.sum + $!right.sum } + multi method sum(::?ROLE:U: --> 0) { } + multi method sum(::?ROLE:D: --> Numeric:D) { $!value + $!left.sum + $!right.sum } multi method map(::?ROLE:U: &f --> ::?ROLE:U) { self } multi method map(::?ROLE:D: &f --> ::?ROLE:D) { self.new: f($!value), L => $!left.map(&f), R => $!right.map(&f) } @@ -38,5 +38,6 @@ unit sub MAIN() { R => BIT(3, L => BIT(5), R => BIT(6))); - say $bit.map: $bit.sum - *; + my Int:D $sum = $bit.sum; + say $bit.map: $sum - *; } |