diff options
| -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: |