diff options
| author | juliodcs <julio.dcs@gmail.com> | 2020-11-13 01:10:55 +0100 |
|---|---|---|
| committer | juliodcs <julio.dcs@gmail.com> | 2020-11-13 01:10:55 +0100 |
| commit | ffa2820433b9f982a39d404400a0f20061b2c060 (patch) | |
| tree | 6dd555bd42b2d1297985a04fabd557e353bc78f0 /challenge-086/juliodcs | |
| parent | 5de85dbe17b63575b90e09af9c125fc095bd497a (diff) | |
| download | perlweeklychallenge-club-ffa2820433b9f982a39d404400a0f20061b2c060.tar.gz perlweeklychallenge-club-ffa2820433b9f982a39d404400a0f20061b2c060.tar.bz2 perlweeklychallenge-club-ffa2820433b9f982a39d404400a0f20061b2c060.zip | |
juliodcs-week86
Diffstat (limited to 'challenge-086/juliodcs')
| -rw-r--r-- | challenge-086/juliodcs/raku/ch-1.raku | 20 |
1 files changed, 20 insertions, 0 deletions
diff --git a/challenge-086/juliodcs/raku/ch-1.raku b/challenge-086/juliodcs/raku/ch-1.raku new file mode 100644 index 0000000000..3664a15181 --- /dev/null +++ b/challenge-086/juliodcs/raku/ch-1.raku @@ -0,0 +1,20 @@ +#! /usr/bin/raku
+
+sub diff_pair($a, @n, $i = 0) {
+ return 0 if $i > @n.elems - 1;
+ return 1 if @n[$i+1 .. *].grep: { abs(@n[$i] - $_) == $a };
+ return diff_pair $a, @n, $i+1;
+}
+
+if @*ARGS.elems > 0 {
+ say diff_pair @*ARGS[0], @*ARGS[1 .. *];
+ exit 0;
+}
+
+use Test;
+
+ok diff_pair(7, [10, 8, 12, 15, 5]), 'test1';
+ok diff_pair(6, [1, 5, 2, 9, 7]), 'test2';
+ok !diff_pair(6, [10, 30, 20, 50, 40]), 'test3';
+
+done-testing;
|