diff options
| author | Markus "Holli" Holzer <holli.holzer@gmail.com> | 2020-04-19 22:32:37 +0200 |
|---|---|---|
| committer | Markus "Holli" Holzer <holli.holzer@gmail.com> | 2020-04-19 22:32:37 +0200 |
| commit | dad2dedbb9a42d6c3f171dfd0068f2edb470056e (patch) | |
| tree | b4f7d17862302a21406f8b0dd99867cf69afd600 | |
| parent | 22599fe1c6693c23fb9b2a141c929647a7c7b961 (diff) | |
| download | perlweeklychallenge-club-dad2dedbb9a42d6c3f171dfd0068f2edb470056e.tar.gz perlweeklychallenge-club-dad2dedbb9a42d6c3f171dfd0068f2edb470056e.tar.bz2 perlweeklychallenge-club-dad2dedbb9a42d6c3f171dfd0068f2edb470056e.zip | |
final
| -rw-r--r-- | challenge-056/markus-holzer/raku/ch-1.p6 | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/challenge-056/markus-holzer/raku/ch-1.p6 b/challenge-056/markus-holzer/raku/ch-1.p6 index ddd918eb4d..8a1bfc5846 100644 --- a/challenge-056/markus-holzer/raku/ch-1.p6 +++ b/challenge-056/markus-holzer/raku/ch-1.p6 @@ -5,6 +5,7 @@ sub MAIN( UInt $k, *@N ) .say for ( @N>>.UInt ) .pairs .combinations(2) - .grep({ .[1].value - .[0].value == $k }) - .map( *>>.key ); + .grep( -> $tupel { $tupel[1].value - $tupel[0].value == $k } ) + .map( -> $tupel { $tupel>>.key } ) + ; } |