diff options
| author | Jörg Sommrey <28217714+jo-37@users.noreply.github.com> | 2023-01-12 18:16:37 +0100 |
|---|---|---|
| committer | Jörg Sommrey <28217714+jo-37@users.noreply.github.com> | 2023-01-13 13:47:53 +0100 |
| commit | 61ab1108081ad9ab537efd7a5f35a1b136d67375 (patch) | |
| tree | d4a2ae8828696684db222b062d633b33b8354514 | |
| parent | 055abc15e12b5c524043b122f0630ebd64e9e095 (diff) | |
| download | perlweeklychallenge-club-61ab1108081ad9ab537efd7a5f35a1b136d67375.tar.gz perlweeklychallenge-club-61ab1108081ad9ab537efd7a5f35a1b136d67375.tar.bz2 perlweeklychallenge-club-61ab1108081ad9ab537efd7a5f35a1b136d67375.zip | |
Small update to challenge 196 task 1
| -rwxr-xr-x | challenge-196/jo-37/perl/ch-1.pl | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/challenge-196/jo-37/perl/ch-1.pl b/challenge-196/jo-37/perl/ch-1.pl index 01310603d9..01fb22c449 100755 --- a/challenge-196/jo-37/perl/ch-1.pl +++ b/challenge-196/jo-37/perl/ch-1.pl @@ -94,10 +94,10 @@ sub find_132 { my $l = long @_; # Construct the comparison matrix: - my $comp = $l <=> $l->dummy(0); + my $comp = ($l <=> $l->dummy(0)); # Construct a lower triangular matrix indicating index order: - my $t = sequence(long, $l->dim(0)) < sequence(long, $l->dim(0))->dummy(0); + my $t = ($l->sequence < $l->sequence->dummy(0)); # Transition from the first to the second element: # The second must be larger than the first and have a larger index. |