ch-1.pl solution by Maxim Kolodyazhny

1 files changed, 18 insertions, 0 deletions

diff --git a/challenge-006/maxim-kolodyazhny/perl5/ch-1.pl b/challenge-006/maxim-kolodyazhny/perl5/ch-1.pl
new file mode 100644
index 0000000000..5ac290fdd0
--- /dev/null
+++ b/challenge-006/maxim-kolodyazhny/perl5/ch-1.pl
@@ -0,0 +1,18 @@
+#!/usr/bin/env perl -p
+
+# echo 1,2,3,4,42,43,45 | ch-1.pl
+
+use 5.028.1;
+use List::Util qw(sum);
+
+s{
+    (\b \d+)
+    (,?\d+,)+
+    (\d+ \b)
+    (??{
+        # this block is treated as a pattern
+        # != will return '' (always match) or 1 (fail because of previous \b)
+        ($3-$1+1)*($1+$3)/2 != sum split ',', $&;
+    })
+}
+{$1-$3}xg;