diff options
| author | Mohammad S Anwar <mohammad.anwar@yahoo.com> | 2020-04-18 23:38:39 +0100 |
|---|---|---|
| committer | Mohammad S Anwar <mohammad.anwar@yahoo.com> | 2020-04-18 23:38:39 +0100 |
| commit | 1b9c8311b1e0fa8f33371aa9f6af53ea6617bcb7 (patch) | |
| tree | 75e1e774a0507715d094e26b3e28337f813c8232 | |
| parent | 5591c195d742cc80dbed62db371f986909cf1e27 (diff) | |
| download | perlweeklychallenge-club-1b9c8311b1e0fa8f33371aa9f6af53ea6617bcb7.tar.gz perlweeklychallenge-club-1b9c8311b1e0fa8f33371aa9f6af53ea6617bcb7.tar.bz2 perlweeklychallenge-club-1b9c8311b1e0fa8f33371aa9f6af53ea6617bcb7.zip | |
- Tidied up Raku solutions.
| -rw-r--r-- | challenge-056/mohammad-anwar/raku/ch-1.p6 | 2 | ||||
| -rw-r--r-- | 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); } } } |