initial commit

1 files changed, 40 insertions, 0 deletions

diff --git a/challenge-200/adam-russell/perl/ch-1.pl b/challenge-200/adam-russell/perl/ch-1.pl
new file mode 100644
index 0000000000..19784d8447
--- /dev/null
+++ b/challenge-200/adam-russell/perl/ch-1.pl
@@ -0,0 +1,40 @@
+use v5.36;
+##
+# You are given an array of integers.
+# Write a script to find out all Arithmetic Slices for the given array of integers.
+##
+use boolean;
+
+sub is_arithmetic{
+    my($slice) = @_;
+    do{
+        return false if $slice->[$_] != $slice->[$_ + 1] - 1;
+    } for 0 .. @{$slice} - 2;
+    return true;
+}
+
+sub arithmetic_slices{
+    my @slices; 
+    my @a = @_;
+    return ([]) if @a < 3;
+    do{
+        my $i = $_;
+        do{
+            my $slice = [@a[$i .. $i + $_]] if $a[$i] && $a[$i + $_];
+            push @slices, $slice if $slice && is_arithmetic($slice);
+        } for 2 .. @a - 1;
+    } for 0 .. @a - 3;
+    return @slices;
+}
+
+MAIN:{
+    say q/1, 2, 3, 4/;
+    for my $slice (arithmetic_slices(1, 2, 3, 4)){
+        say q/[/ . join(q/, /, @{$slice}) . q/]/; 
+    }
+    say q//;
+    say q/2/;
+    for my $slice (arithmetic_slices(2)){
+        say q/[/ . join(q/, /, @{$slice}) . q/]/; 
+    }
+}
\ No newline at end of file