- Added solution by Robert DiCicco.

1 files changed, 30 insertions, 0 deletions

diff --git a/challenge-173/robert-dicicco/perl/ch-2.pl b/challenge-173/robert-dicicco/perl/ch-2.pl
new file mode 100644
index 0000000000..098647da5e
--- /dev/null
+++ b/challenge-173/robert-dicicco/perl/ch-2.pl
@@ -0,0 +1,30 @@
+#!perl.exe
+
+# AUTHOR: Robert DiCicco
+# DATE: 2022-07-13
+# Challenge 173 Sylvbester's Sequence ( Perl )
+
+use strict;
+use warnings;
+use bigint;
+use List::Util qw/product/;
+
+my @arr = (2);
+my $count = 1;
+my $prod = 1;
+
+print("$arr[0]\n");
+
+while (1) {
+
+  $prod = product(@arr) + 1;
+
+  print("$prod\n");
+
+  push(@arr,$prod);
+
+  $count++;
+
+  last if ($count == 10);
+
+}