diff options
| author | chicagoist <31587029+chicagoist@users.noreply.github.com> | 2023-02-08 22:44:03 +0100 |
|---|---|---|
| committer | chicagoist <31587029+chicagoist@users.noreply.github.com> | 2023-02-08 22:44:03 +0100 |
| commit | c697a8764aa8797c9efbf38507873d1b4803b3a3 (patch) | |
| tree | 5cc8e3652411d92159feab0779e5abdce3c445f6 | |
| parent | 41d073de7165a0bc192e756847edfad7466e2e5a (diff) | |
| download | perlweeklychallenge-club-c697a8764aa8797c9efbf38507873d1b4803b3a3.tar.gz perlweeklychallenge-club-c697a8764aa8797c9efbf38507873d1b4803b3a3.tar.bz2 perlweeklychallenge-club-c697a8764aa8797c9efbf38507873d1b4803b3a3.zip | |
ch-1 by chicagoist
| -rw-r--r-- | challenge-203/chicagoist/perl/.gitignore | 2 | ||||
| -rw-r--r-- | challenge-203/chicagoist/perl/ch-1.pl | 3 |
2 files changed, 4 insertions, 1 deletions
diff --git a/challenge-203/chicagoist/perl/.gitignore b/challenge-203/chicagoist/perl/.gitignore new file mode 100644 index 0000000000..ca71208fb7 --- /dev/null +++ b/challenge-203/chicagoist/perl/.gitignore @@ -0,0 +1,2 @@ +/.gitignore +/.idea
\ No newline at end of file diff --git a/challenge-203/chicagoist/perl/ch-1.pl b/challenge-203/chicagoist/perl/ch-1.pl index b62ec860e6..39b8b899d3 100644 --- a/challenge-203/chicagoist/perl/ch-1.pl +++ b/challenge-203/chicagoist/perl/ch-1.pl @@ -28,7 +28,8 @@ sub specialQuadruplets return $count; } + use Test::More tests => 3; ok specialQuadruplets(1, 2, 3, 6) == 1; ok specialQuadruplets((1, 1, 1, 3, 5)) == 4; -ok specialQuadruplets(3, 3, 6, 4, 5) == 0;
\ No newline at end of file +ok specialQuadruplets(3, 3, 6, 4, 5) == 0; |