From af43b5a7055ee66b0fdc3589be8ba18134733a43 Mon Sep 17 00:00:00 2001 From: Walt Mankowski Date: Fri, 15 Jul 2022 19:57:28 -0400 Subject: perl solution to challenge 2 --- challenge-173/walt-mankowski/perl/ch-2.pl | 17 +++++++++++++++++ 1 file changed, 17 insertions(+) create mode 100644 challenge-173/walt-mankowski/perl/ch-2.pl diff --git a/challenge-173/walt-mankowski/perl/ch-2.pl b/challenge-173/walt-mankowski/perl/ch-2.pl new file mode 100644 index 0000000000..20be9326f8 --- /dev/null +++ b/challenge-173/walt-mankowski/perl/ch-2.pl @@ -0,0 +1,17 @@ +#!/usr/bin/env perl +use v5.36; +use bigint; +use List::Util qw(product); + +# Task 2: Sylvester’s sequence +# Submitted by: Mohammad S Anwar +# +# Write a script to generate first 10 members of Sylvester's sequence. +# In number theory, Sylvester's sequence is an integer sequence in +# which each term of the sequence is the product of the previous +# terms, plus one. + +my @sylvester; +push @sylvester, 1 + product @sylvester while @sylvester < 10; +say for @sylvester; + -- cgit