From 1b9c8311b1e0fa8f33371aa9f6af53ea6617bcb7 Mon Sep 17 00:00:00 2001
From: Mohammad S Anwar <mohammad.anwar@yahoo.com>
Date: Sat, 18 Apr 2020 23:38:39 +0100
Subject: - Tidied up Raku solutions.

---
 challenge-056/mohammad-anwar/raku/ch-1.p6  | 2 +-
 challenge-056/mohammad-anwar/raku/ch-1a.p6 | 2 +-
 2 files changed, 2 insertions(+), 2 deletions(-)

diff --git a/challenge-056/mohammad-anwar/raku/ch-1.p6 b/challenge-056/mohammad-anwar/raku/ch-1.p6
index e5380adeb9..5504be9e36 100644
--- a/challenge-056/mohammad-anwar/raku/ch-1.p6
+++ b/challenge-056/mohammad-anwar/raku/ch-1.p6
@@ -28,7 +28,7 @@ sub find-match(Int $K, @L where .all ~~ Int) {
         for $i+1 .. $S -> $j {
             my $k = @L[$i] - @L[$j];
             if $k == $K {
-                push @$matched, sprintf($fmt, $i, $j, @L[$i], @L[$j], $k);
+                $matched.push: sprintf($fmt, $i, $j, @L[$i], @L[$j], $k);
             }
         }
     }
diff --git a/challenge-056/mohammad-anwar/raku/ch-1a.p6 b/challenge-056/mohammad-anwar/raku/ch-1a.p6
index e066250a41..e2f2598024 100644
--- a/challenge-056/mohammad-anwar/raku/ch-1a.p6
+++ b/challenge-056/mohammad-anwar/raku/ch-1a.p6
@@ -40,7 +40,7 @@ sub find-match(Int $K, @L where .all ~~ Int) {
         for $i+1 .. $S -> $j {
             my $k = @L[$i] - @L[$j];
             if $k == $K {
-                push @$matched, sprintf($fmt, $i, $j, @L[$i], @L[$j], $k);
+                $matched.push: sprintf($fmt, $i, $j, @L[$i], @L[$j], $k);
             }
         }
     }
-- 
cgit