diff options
| author | Mohammad S Anwar <mohammad.anwar@yahoo.com> | 2021-05-28 21:53:45 +0100 |
|---|---|---|
| committer | Mohammad S Anwar <mohammad.anwar@yahoo.com> | 2021-05-28 21:53:45 +0100 |
| commit | 48eb5f9ee75913c67bb8be21842a730372ecaa1a (patch) | |
| tree | eed0fa72c05fe49d98305a160bbc7d94afe6e289 /challenge-114 | |
| parent | f1f787d0785f001793be70b822c4880b49528810 (diff) | |
| download | perlweeklychallenge-club-48eb5f9ee75913c67bb8be21842a730372ecaa1a.tar.gz perlweeklychallenge-club-48eb5f9ee75913c67bb8be21842a730372ecaa1a.tar.bz2 perlweeklychallenge-club-48eb5f9ee75913c67bb8be21842a730372ecaa1a.zip | |
- Added solution by Lance Wicks.
Diffstat (limited to 'challenge-114')
| -rw-r--r-- | challenge-114/lance-wicks/perl/ch-1.pl | 12 |
1 files changed, 12 insertions, 0 deletions
diff --git a/challenge-114/lance-wicks/perl/ch-1.pl b/challenge-114/lance-wicks/perl/ch-1.pl new file mode 100644 index 0000000000..b398f3c977 --- /dev/null +++ b/challenge-114/lance-wicks/perl/ch-1.pl @@ -0,0 +1,12 @@ +use Test2::V0 -target => 'Palindrome'; + +my @cases + = ( [ 1, 2 ], [ 9, 11 ], [ 99, 101 ], [ 999, 1001 ], [ 1234, 1331 ], ); + +for my $pair (@cases) { + my $got = $CLASS->num( $pair->[0] ); + is $got, $pair->[1], "$pair->[0] \t Expect: $pair->[1] \t\t Got: $got"; + +} + +done_testing; |