diff options
| author | James Smith <js5@sanger.ac.uk> | 2023-05-20 05:56:03 +0100 |
|---|---|---|
| committer | GitHub <noreply@github.com> | 2023-05-20 05:56:03 +0100 |
| commit | 9980eac79d33580404a2c0aba9cb3def44a719f7 (patch) | |
| tree | 08127b1595ef0ab1d69aa202663c88e0f46f78c3 | |
| parent | 4308b9990ff28be99d2adae35ed556e512162c0a (diff) | |
| download | perlweeklychallenge-club-9980eac79d33580404a2c0aba9cb3def44a719f7.tar.gz perlweeklychallenge-club-9980eac79d33580404a2c0aba9cb3def44a719f7.tar.bz2 perlweeklychallenge-club-9980eac79d33580404a2c0aba9cb3def44a719f7.zip | |
Update ch1.pl
| -rw-r--r-- | challenge-217/james-smith/perl/ch1.pl | 48 |
1 files changed, 24 insertions, 24 deletions
diff --git a/challenge-217/james-smith/perl/ch1.pl b/challenge-217/james-smith/perl/ch1.pl index 343e970a55..2eb9cb642d 100644 --- a/challenge-217/james-smith/perl/ch1.pl +++ b/challenge-217/james-smith/perl/ch1.pl @@ -118,51 +118,51 @@ sub sorted_matrix_xx { $z; } -is( sorted_matrix( @{$_->[0]} ) , $_->[1] ) for @TESTS1; -is( sorted_matrix_x( @{$_->[0]} ) , $_->[1] ) for @TESTS1; -is( sorted_matrix_xx( @{$_->[0]} ) , $_->[1] ) for @TESTS1; +is( sorted_matrix( @{$_->[0]} ) , $_->[1] ) for @TESTS; +is( sorted_matrix_x( @{$_->[0]} ) , $_->[1] ) for @TESTS; +is( sorted_matrix_xx( @{$_->[0]} ) , $_->[1] ) for @TESTS; done_testing(); warn "ALL"; cmpthese( -2, { - 'sort' => sub { sorted_matrix( @{$_->[0]} ) for @TESTS1 }, - 'cmp' => sub { sorted_matrix_x( @{$_->[0]} ) for @TESTS1 }, - 'nest' => sub { sorted_matrix_xx( @{$_->[0]} ) for @TESTS1 }, + 'sort' => sub { sorted_matrix( @{$_->[0]} ) for @TESTS }, + 'cmp' => sub { sorted_matrix_x( @{$_->[0]} ) for @TESTS }, + 'nest' => sub { sorted_matrix_xx( @{$_->[0]} ) for @TESTS }, }); warn "30"; cmpthese( -2, { - 'sort' => sub { sorted_matrix( @{$_->[0]} ) for @TESTS1[6] }, - 'cmp' => sub { sorted_matrix_x( @{$_->[0]} ) for @TESTS1[6] }, - 'nest' => sub { sorted_matrix_xx( @{$_->[0]} ) for @TESTS1[6] }, + 'sort' => sub { sorted_matrix( @{$_->[0]} ) for @TESTS[6] }, + 'cmp' => sub { sorted_matrix_x( @{$_->[0]} ) for @TESTS[6] }, + 'nest' => sub { sorted_matrix_xx( @{$_->[0]} ) for @TESTS[6] }, }); warn "20"; cmpthese( -2, { - 'sort' => sub { sorted_matrix( @{$_->[0]} ) for @TESTS1[7] }, - 'cmp' => sub { sorted_matrix_x( @{$_->[0]} ) for @TESTS1[7] }, - 'nest' => sub { sorted_matrix_xx( @{$_->[0]} ) for @TESTS1[7] }, + 'sort' => sub { sorted_matrix( @{$_->[0]} ) for @TESTS[7] }, + 'cmp' => sub { sorted_matrix_x( @{$_->[0]} ) for @TESTS[7] }, + 'nest' => sub { sorted_matrix_xx( @{$_->[0]} ) for @TESTS[7] }, }); warn "10"; cmpthese( -2, { - 'sort' => sub { sorted_matrix( @{$_->[0]} ) for @TESTS1[5] }, - 'cmp' => sub { sorted_matrix_x( @{$_->[0]} ) for @TESTS1[5] }, - 'nest' => sub { sorted_matrix_xx( @{$_->[0]} ) for @TESTS1[5] }, + 'sort' => sub { sorted_matrix( @{$_->[0]} ) for @TESTS[5] }, + 'cmp' => sub { sorted_matrix_x( @{$_->[0]} ) for @TESTS[5] }, + 'nest' => sub { sorted_matrix_xx( @{$_->[0]} ) for @TESTS[5] }, }); warn "7"; cmpthese( -2, { - 'sort' => sub { sorted_matrix( @{$_->[0]} ) for @TESTS1[4] }, - 'cmp' => sub { sorted_matrix_x( @{$_->[0]} ) for @TESTS1[4] }, - 'nest' => sub { sorted_matrix_xx( @{$_->[0]} ) for @TESTS1[4] }, + 'sort' => sub { sorted_matrix( @{$_->[0]} ) for @TESTS[4] }, + 'cmp' => sub { sorted_matrix_x( @{$_->[0]} ) for @TESTS[4] }, + 'nest' => sub { sorted_matrix_xx( @{$_->[0]} ) for @TESTS[4] }, }); warn "5"; cmpthese( -2, { - 'sort' => sub { sorted_matrix( @{$_->[0]} ) for @TESTS1[3] }, - 'cmp' => sub { sorted_matrix_x( @{$_->[0]} ) for @TESTS1[3] }, - 'nest' => sub { sorted_matrix_xx( @{$_->[0]} ) for @TESTS1[3] }, + 'sort' => sub { sorted_matrix( @{$_->[0]} ) for @TESTS[3] }, + 'cmp' => sub { sorted_matrix_x( @{$_->[0]} ) for @TESTS[3] }, + 'nest' => sub { sorted_matrix_xx( @{$_->[0]} ) for @TESTS[3] }, }); warn "2/3"; cmpthese( -2, { - 'sort' => sub { sorted_matrix( @{$_->[0]} ) for @TESTS1[0..2] }, - 'cmp' => sub { sorted_matrix_x( @{$_->[0]} ) for @TESTS1[0..2] }, - 'nest' => sub { sorted_matrix_xx( @{$_->[0]} ) for @TESTS1[0..2] }, + 'sort' => sub { sorted_matrix( @{$_->[0]} ) for @TESTS[0..2] }, + 'cmp' => sub { sorted_matrix_x( @{$_->[0]} ) for @TESTS[0..2] }, + 'nest' => sub { sorted_matrix_xx( @{$_->[0]} ) for @TESTS[0..2] }, }); |