From aa4ec3a5b1ef22a10de33fc73de3debb0cacb824 Mon Sep 17 00:00:00 2001 From: Mark Anderson Date: Mon, 4 May 2020 05:31:03 -0600 Subject: ch-2.p6 --- challenge-059/mark-anderson/raku/ch-2.p6 | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'challenge-059') 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; } -- cgit