diff options
| -rw-r--r-- | challenge-109/perlboy1967/perl/ch-1.pl | 10 |
1 files changed, 6 insertions, 4 deletions
diff --git a/challenge-109/perlboy1967/perl/ch-1.pl b/challenge-109/perlboy1967/perl/ch-1.pl index ba98a3ac47..9e1f1d3bec 100644 --- a/challenge-109/perlboy1967/perl/ch-1.pl +++ b/challenge-109/perlboy1967/perl/ch-1.pl @@ -15,14 +15,16 @@ use warnings; use List::Util qw(sum0); +use Test::More; +use Test::Deep; + # Prototype(s) sub chowlaNumber($); -my $N = shift @ARGV // 20; - -printf "First %d Chowla numbers: %s\n", - $N, join(',', map { chowlaNumber($_) } 1 .. $N); +cmp_deeply ([map {chowlaNumber($_)} 1 .. 20], + [0,0,0,2,0,5,0,6,3,7,0,15,0,9,8,14,0,20,0,21]); +done_testing; sub chowlaNumber($) { |