diff options
| author | Mohammad S Anwar <Mohammad.Anwar@yahoo.com> | 2022-11-01 23:18:54 +0000 |
|---|---|---|
| committer | GitHub <noreply@github.com> | 2022-11-01 23:18:54 +0000 |
| commit | b877b09ae259e19509c2fb64039ba718e7735cd5 (patch) | |
| tree | f459463e5ffdebdca4faa665c8724b111b1c79ff | |
| parent | 27234cb640c17ae3d1054ca88ef44831cceeb23c (diff) | |
| download | perlweeklychallenge-club-b877b09ae259e19509c2fb64039ba718e7735cd5.tar.gz perlweeklychallenge-club-b877b09ae259e19509c2fb64039ba718e7735cd5.tar.bz2 perlweeklychallenge-club-b877b09ae259e19509c2fb64039ba718e7735cd5.zip | |
Update ch-1.pl
| -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; |