diff options
| author | Markus "Holli" Holzer <holli.holzer@gmail.com> | 2020-04-19 22:21:48 +0200 |
|---|---|---|
| committer | Markus "Holli" Holzer <holli.holzer@gmail.com> | 2020-04-19 22:21:48 +0200 |
| commit | 36994c04e6bfacc633500fe54e582e85c401df42 (patch) | |
| tree | c893b5064a7414980caabb07ba5dd19826946993 | |
| parent | ad1e900f5912803c17c47b0484d7c9849dedf115 (diff) | |
| download | perlweeklychallenge-club-36994c04e6bfacc633500fe54e582e85c401df42.tar.gz perlweeklychallenge-club-36994c04e6bfacc633500fe54e582e85c401df42.tar.bz2 perlweeklychallenge-club-36994c04e6bfacc633500fe54e582e85c401df42.zip | |
arrgh!
| -rw-r--r-- | challenge-056/markus-holzer/raku/ch-1.p6 | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/challenge-056/markus-holzer/raku/ch-1.p6 b/challenge-056/markus-holzer/raku/ch-1.p6 index e9c3c4f06d..8bcf267486 100644 --- a/challenge-056/markus-holzer/raku/ch-1.p6 +++ b/challenge-056/markus-holzer/raku/ch-1.p6 @@ -4,7 +4,7 @@ sub MAIN( UInt $k, *@N ) .say for ( @N>>.UInt ) .pairs - .rotor( 2 => -1 ) - .grep({ .[1].value - .[0].value == $k }) + .combinations(2) + .grep( abs( [-] *>>.value ) == $k ) .map( *>>.key ); } |