diff options
| author | Mark Anderson <mark@frontrangerunner.com> | 2020-05-04 05:31:03 -0600 |
|---|---|---|
| committer | Mark Anderson <mark@frontrangerunner.com> | 2020-05-04 05:31:03 -0600 |
| commit | aa4ec3a5b1ef22a10de33fc73de3debb0cacb824 (patch) | |
| tree | e127ecf5e705e42361cff9bd9a65ed720739dd12 /challenge-059 | |
| parent | 8d2a477f05329b16d4cf15c73814a7e63bf30ac3 (diff) | |
| download | perlweeklychallenge-club-aa4ec3a5b1ef22a10de33fc73de3debb0cacb824.tar.gz perlweeklychallenge-club-aa4ec3a5b1ef22a10de33fc73de3debb0cacb824.tar.bz2 perlweeklychallenge-club-aa4ec3a5b1ef22a10de33fc73de3debb0cacb824.zip | |
ch-2.p6
Diffstat (limited to 'challenge-059')
| -rw-r--r-- | challenge-059/mark-anderson/raku/ch-2.p6 | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/challenge-059/mark-anderson/raku/ch-2.p6 b/challenge-059/mark-anderson/raku/ch-2.p6 index 6256e2aa69..632161f883 100644 --- a/challenge-059/mark-anderson/raku/ch-2.p6 +++ b/challenge-059/mark-anderson/raku/ch-2.p6 @@ -5,11 +5,11 @@ my @list = (2, 3, 4); my $sum; for @list.combinations(2) -> ($n1, $n2) { - $sum += f($n1, $n2); + $sum += f($n1, $n2); } say $sum; sub f ($n1, $n2) { - ($n1 +^ $n2).fmt("%0b").comb("1").elems; + ($n1 +^ $n2).fmt("%b").comb("1").elems; } |