aboutsummaryrefslogtreecommitdiff
path: root/challenge-197/james-smith/perl
diff options
context:
space:
mode:
authorJames Smith <js5@sanger.ac.uk>2022-12-26 14:38:48 +0000
committerGitHub <noreply@github.com>2022-12-26 14:38:48 +0000
commite508071f909a22e0a9bd4bfe73f6f17ea6ba4641 (patch)
tree82b05bfbb38f36d8504722b3e8fb3c2211905d63 /challenge-197/james-smith/perl
parent684f9e08b3b18f4763e3634f00333bf35f4aebfa (diff)
downloadperlweeklychallenge-club-e508071f909a22e0a9bd4bfe73f6f17ea6ba4641.tar.gz
perlweeklychallenge-club-e508071f909a22e0a9bd4bfe73f6f17ea6ba4641.tar.bz2
perlweeklychallenge-club-e508071f909a22e0a9bd4bfe73f6f17ea6ba4641.zip
Update ch-1.pl
Diffstat (limited to 'challenge-197/james-smith/perl')
-rw-r--r--challenge-197/james-smith/perl/ch-1.pl1
1 files changed, 1 insertions, 0 deletions
diff --git a/challenge-197/james-smith/perl/ch-1.pl b/challenge-197/james-smith/perl/ch-1.pl
index 84b80e2164..f220e8c6b7 100644
--- a/challenge-197/james-smith/perl/ch-1.pl
+++ b/challenge-197/james-smith/perl/ch-1.pl
@@ -13,5 +13,6 @@ my @TESTS = (
);
is( "@{[ move_zero(@{$_->[0]}) ]}", $_->[1] ) for @TESTS;
+done_testing();
sub move_zero{grep({$_}@_),grep{!$_}@_}