diff options
| -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; |