Solutions to challenge-108

2 files changed, 41 insertions, 0 deletions

diff --git a/challenge-108/wanderdoc/perl/ch-1.pl b/challenge-108/wanderdoc/perl/ch-1.pl
new file mode 100644
index 0000000000..4e3f1cfd84
--- /dev/null
+++ b/challenge-108/wanderdoc/perl/ch-1.pl
@@ -0,0 +1,11 @@
+#!perl
+use strict;
+use warnings FATAL => qw(all);
+
+=prompt
+Write a script to declare a variable or constant and print its location in the memory.
+=cut
+
+my $var = 'Test';
+my $address = sprintf("%p", $var);
+printf("%d %s$/", hex($address), $address);
\ No newline at end of file
diff --git a/challenge-108/wanderdoc/perl/ch-2.pl b/challenge-108/wanderdoc/perl/ch-2.pl
new file mode 100644
index 0000000000..94e7e69bc9
--- /dev/null
+++ b/challenge-108/wanderdoc/perl/ch-2.pl
@@ -0,0 +1,30 @@
+#!perl
+use strict;
+use warnings FATAL => qw(all);
+
+=prompt
+Write a script to display top 10 Bell Numbers.
+=cut
+
+
+
+my @triangle;
+push @triangle, [1];
+
+my @bell_numbers = (1, 1);
+for my $i ( 1 .. 20 )
+{
+     my @arr;
+     $arr[0] = $triangle[0][-1];
+     for my $j ( 1 .. $i )
+     {
+          $arr[$j] = $arr[$j - 1] + $triangle[0][$j - 1];
+     }
+     push @triangle, [@arr];
+
+     $bell_numbers[$i] = $triangle[0][-1];
+
+     shift @triangle; # We need two "lines" only.
+}
+
+print join(": ", $_, $bell_numbers[$_]), $/ for 0 .. $#bell_numbers;
\ No newline at end of file