diff options
| author | Jörg Sommrey <28217714+jo-37@users.noreply.github.com> | 2020-11-08 13:31:54 +0100 |
|---|---|---|
| committer | Jörg Sommrey <28217714+jo-37@users.noreply.github.com> | 2020-11-08 13:31:54 +0100 |
| commit | d67b9bd623d9986baf91c5aab1ff0e5544b8a55d (patch) | |
| tree | 22684667edd969e1b8bfe44e0731eef5e2e3c232 /challenge-085/jo-37 | |
| parent | 121ff5f29dd53b3cd8814c26a6614d690171ed31 (diff) | |
| download | perlweeklychallenge-club-d67b9bd623d9986baf91c5aab1ff0e5544b8a55d.tar.gz perlweeklychallenge-club-d67b9bd623d9986baf91c5aab1ff0e5544b8a55d.tar.bz2 perlweeklychallenge-club-d67b9bd623d9986baf91c5aab1ff0e5544b8a55d.zip | |
Adjust test cases for ch-1
Diffstat (limited to 'challenge-085/jo-37')
| -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: |