diff options
| author | Mohammad S Anwar <Mohammad.Anwar@yahoo.com> | 2020-11-16 03:23:38 +0000 |
|---|---|---|
| committer | GitHub <noreply@github.com> | 2020-11-16 03:23:38 +0000 |
| commit | c68948b6ef7640a0ec017a0bce70e4f4725270a1 (patch) | |
| tree | 9c8d49c7bd187856a6c5ad0e347de838c0b0998d | |
| parent | 73f06622120d568749b0b4e196e8917b708a54c5 (diff) | |
| parent | d623814570e3f9ad2e00e96eabbfbd6a3aa51fb9 (diff) | |
| download | perlweeklychallenge-club-c68948b6ef7640a0ec017a0bce70e4f4725270a1.tar.gz perlweeklychallenge-club-c68948b6ef7640a0ec017a0bce70e4f4725270a1.tar.bz2 perlweeklychallenge-club-c68948b6ef7640a0ec017a0bce70e4f4725270a1.zip | |
Merge pull request #2766 from wambash/challenge-week-086
Challenge week 086
| -rw-r--r-- | challenge-086/wambash/raku/ch-1.raku | 20 |
1 files changed, 20 insertions, 0 deletions
diff --git a/challenge-086/wambash/raku/ch-1.raku b/challenge-086/wambash/raku/ch-1.raku new file mode 100644 index 0000000000..5e20c27832 --- /dev/null +++ b/challenge-086/wambash/raku/ch-1.raku @@ -0,0 +1,20 @@ +#!/usr/bin/env raku + + +sub pair-difference ( $a, +@n ) { + @n + andthen .combinations(2) + andthen .first: { abs( .[0] - .[1] ) == abs $a } +} + +multi MAIN (Bool :$test) { + use Test; + is pair-difference( 7, (10, 8, 12, 15, 5)), (8, 15); + is pair-difference(-7, (10, 8, 12, 15, 5)), (8, 15); + is pair-difference( 6, (1, 5, 2, 9, 7)), (1, 7); + is pair-difference(15, (10, 30, 20, 50, 40)), Nil; +} + +multi MAIN ($a, +@n) { + say +so pair-difference $a, @n +} |