diff options
| author | Stephen Lynn <bizlsg@localhost.localdomain> | 2023-01-10 21:03:41 +0800 |
|---|---|---|
| committer | Stephen Lynn <bizlsg@localhost.localdomain> | 2023-01-10 21:03:41 +0800 |
| commit | 664e6e3575c65ad09ddbe65f0a49da5ef55d54e1 (patch) | |
| tree | 839edacecb34219cacb46609c6b4b00998c9cab8 /challenge-199 | |
| parent | 26ac484b813dc041459be1b1315a36df5a5105c0 (diff) | |
| download | perlweeklychallenge-club-664e6e3575c65ad09ddbe65f0a49da5ef55d54e1.tar.gz perlweeklychallenge-club-664e6e3575c65ad09ddbe65f0a49da5ef55d54e1.tar.bz2 perlweeklychallenge-club-664e6e3575c65ad09ddbe65f0a49da5ef55d54e1.zip | |
pwc 199
Diffstat (limited to 'challenge-199')
| -rwxr-xr-x | challenge-199/steve-g-lynn/raku/ch-2.p6 | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/challenge-199/steve-g-lynn/raku/ch-2.p6 b/challenge-199/steve-g-lynn/raku/ch-2.p6 index c77942b412..2cb65d875c 100755 --- a/challenge-199/steve-g-lynn/raku/ch-2.p6 +++ b/challenge-199/steve-g-lynn/raku/ch-2.p6 @@ -8,6 +8,6 @@ sub good-triplets( @array,$x,$y,$z ) { .combinations(3) .grep({abs(@array[@_[0]]-@array[@_[1]]) <= $x}) .grep({abs(@array[@_[1]]-@array[@_[2]]) <= $y}) - .grep({abs(@array[@_[0]]=@array[@_[1]]) <= $z}) + .grep({abs(@array[@_[0]]-@array[@_[1]]) <= $z}) .elems } |