Solution to task #2 challenge-112

1 files changed, 48 insertions, 0 deletions

diff --git a/challenge-112/wanderdoc/perl/ch-2.pl b/challenge-112/wanderdoc/perl/ch-2.pl
new file mode 100644
index 0000000000..0a6dcd827b
--- /dev/null
+++ b/challenge-112/wanderdoc/perl/ch-2.pl
@@ -0,0 +1,48 @@
+#!perl
+use strict;
+use warnings FATAL => qw(all);
+
+=prompt
+You are given $n steps to climb
+
+Write a script to find out the distinct ways to climb to the top. You are allowed to climb either 1 or 2 steps at a time.
+Example
+
+Input: $n = 3
+Output: 3
+
+    Option 1: 1 step + 1 step + 1 step
+    Option 2: 1 step + 2 steps
+    Option 3: 2 steps + 1 step
+
+Input: $n = 4
+Output: 5
+
+    Option 1: 1 step + 1 step + 1 step + 1 step
+    Option 2: 1 step + 1 step + 2 steps
+    Option 3: 2 steps + 1 step + 1 step
+    Option 4: 1 step + 2 steps + 1 step
+    Option 5: 2 steps + 2 steps
+
+=cut
+
+
+use List::Util qw(sum);
+my $n = shift or die "Number of steps to climb?$/";
+my $opt = 1;
+for my $m ( $n/2 .. $n )
+{
+     my @steps = 
+          grep { sum(@$_) == $n }
+          map { [split(//,$_)] }
+          glob q[{1,2}] x $m;
+
+
+     for my $step ( @steps )
+     {
+          @$step = map {$_ == 1 ? $_ . ' step' : $_ . ' steps'} @$step;
+
+          print "Option ${opt}: ", join(' + ', @$step), $/;
+          $opt++;
+     }
+}
\ No newline at end of file