diff options
| author | drbaggy <js5@sanger.ac.uk> | 2021-06-29 07:14:47 +0100 |
|---|---|---|
| committer | drbaggy <js5@sanger.ac.uk> | 2021-06-29 07:14:47 +0100 |
| commit | 2ace3148f63589730dce28d391049eccbd8054ff (patch) | |
| tree | 396f862f0b5f98084e44d3007853e6da0a606cc4 | |
| parent | ace8b9fce16eac6cb23f848f0392f5288026ddfb (diff) | |
| download | perlweeklychallenge-club-2ace3148f63589730dce28d391049eccbd8054ff.tar.gz perlweeklychallenge-club-2ace3148f63589730dce28d391049eccbd8054ff.tar.bz2 perlweeklychallenge-club-2ace3148f63589730dce28d391049eccbd8054ff.zip | |
tidied up object code - and fixed index code to be shorter
| -rw-r--r-- | challenge-119/james-smith/perl/ch-2.pl | 9 |
1 files changed, 4 insertions, 5 deletions
diff --git a/challenge-119/james-smith/perl/ch-2.pl b/challenge-119/james-smith/perl/ch-2.pl index a99e0de0a5..e23549d1df 100644 --- a/challenge-119/james-smith/perl/ch-2.pl +++ b/challenge-119/james-smith/perl/ch-2.pl @@ -16,11 +16,10 @@ is( no_11_array( $_->[0] ), $_->[1] ) foreach @TESTS; is( no_11_object( $_->[0] ), $_->[1] ) foreach @TESTS; cmpthese(10_000,{ - 'filter' => sub { no_11_filter($_->[0]) foreach @TESTS; }, - 'filter' => sub { no_11_filter($_->[0]) foreach @TESTS; }, - 'object' => sub { no_11_object($_->[0]) foreach @TESTS; }, - 'regex' => sub { no_11_filter_regex($_->[0]) foreach @TESTS; }, - 'array' => sub { no_11_array( $_->[0]) foreach @TESTS; }, + 'filter' => sub { no_11_filter( $_->[0] ) foreach @TESTS; }, + 'regex' => sub { no_11_filter_regex( $_->[0] ) foreach @TESTS; }, + 'object' => sub { no_11_object( $_->[0] ) foreach @TESTS; }, + 'array' => sub { no_11_array( $_->[0] ) foreach @TESTS; }, }); done_testing(); |