diff options
| author | corvettes13 <86648326+corvettes13@users.noreply.github.com> | 2021-07-02 10:11:19 -0500 |
|---|---|---|
| committer | GitHub <noreply@github.com> | 2021-07-02 10:11:19 -0500 |
| commit | 66cea3b9b11f47e8ddad959ccabbf0b1018b5dde (patch) | |
| tree | 39afcaf4bc14e770cdf6008108f9afb4b1e8831c | |
| parent | d6c3b2aab247c84967ffba1e92232e3a43c34b28 (diff) | |
| download | perlweeklychallenge-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.pl | 9 |
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; |
