diff options
| author | Mohammad S Anwar <Mohammad.Anwar@yahoo.com> | 2020-11-08 13:14:10 +0000 |
|---|---|---|
| committer | GitHub <noreply@github.com> | 2020-11-08 13:14:10 +0000 |
| commit | faf0df91b140867dc8135139327a21ef55441600 (patch) | |
| tree | 056c0be2a6ed101620d4bdf07231ed201b74f7ec | |
| parent | c9c1016a69c0542ca3ae09cb50c66d49e46e92b6 (diff) | |
| parent | d67b9bd623d9986baf91c5aab1ff0e5544b8a55d (diff) | |
| download | perlweeklychallenge-club-faf0df91b140867dc8135139327a21ef55441600.tar.gz perlweeklychallenge-club-faf0df91b140867dc8135139327a21ef55441600.tar.bz2 perlweeklychallenge-club-faf0df91b140867dc8135139327a21ef55441600.zip | |
Merge pull request #2719 from jo-37/contrib
Adjust test cases for ch-1
| -rwxr-xr-x | challenge-085/jo-37/perl/ch-1.pl | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/challenge-085/jo-37/perl/ch-1.pl b/challenge-085/jo-37/perl/ch-1.pl index 8c16dc960c..77f66ff51a 100755 --- a/challenge-085/jo-37/perl/ch-1.pl +++ b/challenge-085/jo-37/perl/ch-1.pl @@ -242,10 +242,10 @@ is triplet_sum(1.2, 0.4, 0.1, 2.5), T(), 'Example 1'; is triplet_sum(0.2, 1.5, 0.9, 1.1), F(), 'Example 2'; is triplet_sum(0.5, 1.1, 0.3, 0.7), T(), 'Example 3'; -is triplet_sum(0.1, 0.2, 0.3, 1.1), T(), 'Case 1'; -is triplet_sum(0.3, 0.4, 0.5, 0.6), T(), 'Case 2'; -is triplet_sum(0.2, 0.3, 0.4, 0.83), T(), 'Case 3'; -is triplet_sum(0.55, 0.60, 0.65, 0.83), T(), 'Case 4'; +is triplet_sum(0.1, 0.2, 0.6, 1.4), T(), 'Case 1'; +is triplet_sum(0.1, 0.2, 0.4, 0.6), T(), 'Case 2'; +is triplet_sum(0.1, 0.15, 0.4, 0.7), T(), 'Case 3'; +is triplet_sum(0.55, 0.6, 0.7, 0.8), T(), 'Case 4'; # A carefully crafted, very rare case where the second reduce step # actually modifies the list: |