diff options
| -rw-r--r-- | challenge-189/mohammad-anwar/perl/ch-1.pl | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/challenge-189/mohammad-anwar/perl/ch-1.pl b/challenge-189/mohammad-anwar/perl/ch-1.pl index bd061f7b07..8b8ddbcee1 100644 --- a/challenge-189/mohammad-anwar/perl/ch-1.pl +++ b/challenge-189/mohammad-anwar/perl/ch-1.pl @@ -18,11 +18,11 @@ Task #1: Greater Character use v5.36; use Test2::V0; -is greater_character('b', qw/e m u g/, 'b'), 'e', 'Example 1'; -is greater_character('a', qw/d c e f/, 'a'), 'c', 'Example 2'; -is greater_character('o', qw/j a r/ , 'o'), 'r', 'Example 3'; -is greater_character('a', qw/d c a f/, 'a'), 'c', 'Example 4'; -is greater_character('v', qw/t g a l/, 'v'), 'v', 'Example 5'; +is greater_character('b', qw/e m u g/), 'e', 'Example 1'; +is greater_character('a', qw/d c e f/), 'c', 'Example 2'; +is greater_character('o', qw/j a r/ ), 'r', 'Example 3'; +is greater_character('a', qw/d c a f/), 'c', 'Example 4'; +is greater_character('v', qw/t g a l/), 'v', 'Example 5'; done_testing; |