aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorcorvettes13 <86648326+corvettes13@users.noreply.github.com>2021-07-02 10:11:19 -0500
committerGitHub <noreply@github.com>2021-07-02 10:11:19 -0500
commit66cea3b9b11f47e8ddad959ccabbf0b1018b5dde (patch)
tree39afcaf4bc14e770cdf6008108f9afb4b1e8831c
parentd6c3b2aab247c84967ffba1e92232e3a43c34b28 (diff)
downloadperlweeklychallenge-club-66cea3b9b11f47e8ddad959ccabbf0b1018b5dde.tar.gz
perlweeklychallenge-club-66cea3b9b11f47e8ddad959ccabbf0b1018b5dde.tar.bz2
perlweeklychallenge-club-66cea3b9b11f47e8ddad959ccabbf0b1018b5dde.zip
Update ch-2.pl
-rw-r--r--challenge-119/paul-fajman/perl/ch-2.pl9
1 files changed, 9 insertions, 0 deletions
diff --git a/challenge-119/paul-fajman/perl/ch-2.pl b/challenge-119/paul-fajman/perl/ch-2.pl
index 06299baa92..f764ea153a 100644
--- a/challenge-119/paul-fajman/perl/ch-2.pl
+++ b/challenge-119/paul-fajman/perl/ch-2.pl
@@ -1,5 +1,14 @@
#/usr/bin/perl
+# Weekly Challenge 119 Task #2
+# Write a script to generate sequence starting at 1. Consider the
+# increasing sequence of integers which contain only 1’s, 2’s and
+# 3’s, and do not have any doublets of 1’s like below. Please
+# accept a positive integer $N and print the $Nth term in the
+# generated sequence.
+
+# 1, 2, 3, 12, 13, 21, 22, 23, 31, 32, 33, 121, 122, 123, 131
+
use strict;
use warnings;