diff options
| author | Mohammad S Anwar <mohammad.anwar@yahoo.com> | 2020-04-18 18:14:39 +0100 |
|---|---|---|
| committer | Mohammad S Anwar <mohammad.anwar@yahoo.com> | 2020-04-18 18:14:39 +0100 |
| commit | 5a300666f0065d9705c4b17f934d94852a2fcf5f (patch) | |
| tree | d41f602bd27537cc6dbd49ab5c16a06f9d86f923 | |
| parent | 39e5c06cce33d6952eae80a00291d92d882e442a (diff) | |
| download | perlweeklychallenge-club-5a300666f0065d9705c4b17f934d94852a2fcf5f.tar.gz perlweeklychallenge-club-5a300666f0065d9705c4b17f934d94852a2fcf5f.tar.bz2 perlweeklychallenge-club-5a300666f0065d9705c4b17f934d94852a2fcf5f.zip | |
- Minor tidy up.
| -rw-r--r-- | challenge-056/mohammad-anwar/raku/ch-1a.p6 | 5 |
1 files changed, 4 insertions, 1 deletions
diff --git a/challenge-056/mohammad-anwar/raku/ch-1a.p6 b/challenge-056/mohammad-anwar/raku/ch-1a.p6 index f241fc90ba..7b3df153c7 100644 --- a/challenge-056/mohammad-anwar/raku/ch-1a.p6 +++ b/challenge-056/mohammad-anwar/raku/ch-1a.p6 @@ -21,7 +21,10 @@ my $unit-tests = :{ }; for $unit-tests.keys -> $K { - my @L = $unit-tests{$K}<in>.Slip; + # contributed by @smokemachine + my @L = $unit-tests{$K}<in><>; + # same as above, contributed by @khaledelboray + # my @L = $unit-tests{$K}<in>.Slip; my $R = $unit-tests{$K}<out>; is-deeply(find-match($K, @L), $R, "testing with K=$K"); |