diff options
| author | Luca Ferrari <fluca1978@gmail.com> | 2023-03-06 15:15:42 +0100 |
|---|---|---|
| committer | Luca Ferrari <fluca1978@gmail.com> | 2023-03-06 15:22:27 +0100 |
| commit | 05bd21e48e0310a256750ea2b421f758f68d2b40 (patch) | |
| tree | fba28c634226c23de3367331f7fd5dcafb7a436e | |
| parent | 694750e37b300fb1d3978bf4dac7a206dd7f4d7d (diff) | |
| download | perlweeklychallenge-club-05bd21e48e0310a256750ea2b421f758f68d2b40.tar.gz perlweeklychallenge-club-05bd21e48e0310a256750ea2b421f758f68d2b40.tar.bz2 perlweeklychallenge-club-05bd21e48e0310a256750ea2b421f758f68d2b40.zip | |
Fix key/value
| -rw-r--r-- | challenge-207/luca-ferrari/postgresql/ch-2.plperl | 2 | ||||
| -rw-r--r-- | challenge-207/luca-ferrari/postgresql/ch-2.sql | 4 |
2 files changed, 3 insertions, 3 deletions
diff --git a/challenge-207/luca-ferrari/postgresql/ch-2.plperl b/challenge-207/luca-ferrari/postgresql/ch-2.plperl index 1f31604070..6794b73618 100644 --- a/challenge-207/luca-ferrari/postgresql/ch-2.plperl +++ b/challenge-207/luca-ferrari/postgresql/ch-2.plperl @@ -15,7 +15,7 @@ AS $CODE$ my @cits = reverse sort $citations->@*; my @data; while ( my ( $key, $value ) = each( @cits ) ) { - push @data, $value if ( $key >= $value ); + push @data, $key if ( $key >= $value ); } return ( sort( @data ) )[ 0 ]; diff --git a/challenge-207/luca-ferrari/postgresql/ch-2.sql b/challenge-207/luca-ferrari/postgresql/ch-2.sql index 5e2e7d5820..a0daf6681a 100644 --- a/challenge-207/luca-ferrari/postgresql/ch-2.sql +++ b/challenge-207/luca-ferrari/postgresql/ch-2.sql @@ -17,9 +17,9 @@ BEGIN SELECT c, row_number() OVER ( ORDER BY c desc ) r FROM unnest( citations ) c ) - SELECT MIN( c ) + SELECT MIN( r ) FROM d - WHERE c >= r + WHERE r >= c ; END $CODE$ |