Merge pull request #6458 from adamcrussell/challenge-173

initial commit

3 files changed, 57 insertions, 0 deletions

diff --git a/challenge-173/adam-russell/blog.txt b/challenge-173/adam-russell/blog.txt
new file mode 100644
index 0000000000..f9fa72f5d5
--- /dev/null
+++ b/challenge-173/adam-russell/blog.txt
@@ -0,0 +1 @@
+http://www.rabbitfarm.com/cgi-bin/blosxom/perl/2022/07/17
\ No newline at end of file
diff --git a/challenge-173/adam-russell/perl/ch-1.pl b/challenge-173/adam-russell/perl/ch-1.pl
new file mode 100644
index 0000000000..73a9f9f922
--- /dev/null
+++ b/challenge-173/adam-russell/perl/ch-1.pl
@@ -0,0 +1,31 @@
+use strict;
+use warnings;
+##
+# You are given a positive integer, $n.
+# Write a script to find out if the given number is Esthetic Number.
+##
+use boolean;
+
+sub is_esthetic{
+    my($n) = @_;
+    my @digits = split(//, $n);
+    my $d0 = pop @digits;
+    while(@digits){
+        my $d1 = pop @digits;
+        return false if abs($d1 - $d0) != 1;
+        $d0 = $d1;
+    }
+    return true;
+}
+
+MAIN:{
+    my $n;
+    $n = 5456;
+    print "$n is ";
+    print "esthetic\n" if is_esthetic($n);
+    print "not esthetic\n" if !is_esthetic($n);
+    $n = 120; 
+    print "$n is ";
+    print "esthetic\n" if is_esthetic($n);
+    print "not esthetic\n" if !is_esthetic($n);
+}
diff --git a/challenge-173/adam-russell/perl/ch-2.pl b/challenge-173/adam-russell/perl/ch-2.pl
new file mode 100644
index 0000000000..1b9d54f91c
--- /dev/null
+++ b/challenge-173/adam-russell/perl/ch-2.pl
@@ -0,0 +1,25 @@
+use strict;
+use warnings;
+##
+# Write a script to generate first 10 members of Sylvester's sequence
+##
+use bigint; 
+
+sub sylvester_n{
+    my($n) = @_;
+    my @terms = (2, 3);
+    my %product_table;
+    $product_table{"2,3"} = 6;
+    while(@terms < $n){
+        my $term_key = join(",", @terms);
+        my $term = $product_table{$term_key} + 1;
+        push @terms, $term;
+        $product_table{"$term_key,$term"} = $term * $product_table{$term_key}; 
+    }
+    return @terms;
+}
+
+
+MAIN:{
+    print join(", ", sylvester_n(10)). "\n";
+}
\ No newline at end of file