ch-2.pl added. minor change to ch-2.p6

1 files changed, 1 insertions, 5 deletions

diff --git a/challenge-059/mark-anderson/raku/ch-2.p6 b/challenge-059/mark-anderson/raku/ch-2.p6
index 632161f883..e34cb5aab6 100644
--- a/challenge-059/mark-anderson/raku/ch-2.p6
+++ b/challenge-059/mark-anderson/raku/ch-2.p6
@@ -5,11 +5,7 @@ my @list = (2, 3, 4);
 my $sum;
 
 for @list.combinations(2) -> ($n1, $n2) {
-   $sum += f($n1, $n2);
+   $sum += ($n1 +^ $n2).fmt("%b").comb("1").elems;
 }
 
 say $sum;
-
-sub f ($n1, $n2) {
-    ($n1 +^ $n2).fmt("%b").comb("1").elems;
-}