diff options
| author | Mohammad S Anwar <Mohammad.Anwar@yahoo.com> | 2021-08-14 01:26:16 +0100 |
|---|---|---|
| committer | GitHub <noreply@github.com> | 2021-08-14 01:26:16 +0100 |
| commit | 01c4060cc7206010581934f3189549d19b7e5736 (patch) | |
| tree | 83d24e89c2ef6e7bc466007e3ffc4eede5bec2f3 | |
| parent | bd23bc13ab9a988e3999fe080a81579c75cf0a55 (diff) | |
| parent | 2c4257ae764f03b9de85ab3457614b4a6175c324 (diff) | |
| download | perlweeklychallenge-club-01c4060cc7206010581934f3189549d19b7e5736.tar.gz perlweeklychallenge-club-01c4060cc7206010581934f3189549d19b7e5736.tar.bz2 perlweeklychallenge-club-01c4060cc7206010581934f3189549d19b7e5736.zip | |
Merge pull request #4708 from jo-37/contrib
Add larger example to task 1
| -rwxr-xr-x | challenge-125/jo-37/perl/ch-1.pl | 3 |
1 files changed, 3 insertions, 0 deletions
diff --git a/challenge-125/jo-37/perl/ch-1.pl b/challenge-125/jo-37/perl/ch-1.pl index 8ab6939963..3b9f2aae65 100755 --- a/challenge-125/jo-37/perl/ch-1.pl +++ b/challenge-125/jo-37/perl/ch-1.pl @@ -119,6 +119,9 @@ sub run_tests { bag {item [224, 30, 226]; item [16, 30, 34]; etc}, 'as y'; like [find_pythagorean_triples(13)], bag {item [5, 12, 13]; etc}, 'as z'; + like [find_pythagorean_triples(15485863)], + bag {item [15485863, 119905976427384, 119905976427385]; end}, + '1000000-th prime'; } done_testing; |