diff options
| author | Jörg Sommrey <28217714+jo-37@users.noreply.github.com> | 2021-08-13 23:17:04 +0200 |
|---|---|---|
| committer | Jörg Sommrey <28217714+jo-37@users.noreply.github.com> | 2021-08-13 23:20:54 +0200 |
| commit | 2c4257ae764f03b9de85ab3457614b4a6175c324 (patch) | |
| tree | 83d24e89c2ef6e7bc466007e3ffc4eede5bec2f3 | |
| parent | bd23bc13ab9a988e3999fe080a81579c75cf0a55 (diff) | |
| download | perlweeklychallenge-club-2c4257ae764f03b9de85ab3457614b4a6175c324.tar.gz perlweeklychallenge-club-2c4257ae764f03b9de85ab3457614b4a6175c324.tar.bz2 perlweeklychallenge-club-2c4257ae764f03b9de85ab3457614b4a6175c324.zip | |
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; |