Merge pull request #4064 from lakpatashi/challenge-021

Finished challenge-021 ch-1 only with perl

2 files changed, 34 insertions, 0 deletions

diff --git a/challenge-021/lakpatashi/README b/challenge-021/lakpatashi/README
new file mode 100644
index 0000000000..bc153bd576
--- /dev/null
+++ b/challenge-021/lakpatashi/README
@@ -0,0 +1 @@
+Solution by lakpatashi
diff --git a/challenge-021/lakpatashi/perl/ch-1.pl b/challenge-021/lakpatashi/perl/ch-1.pl
new file mode 100755
index 0000000000..c51c29b389
--- /dev/null
+++ b/challenge-021/lakpatashi/perl/ch-1.pl
@@ -0,0 +1,33 @@
+#!/usr/bin/perl
+
+use warnings;
+use strict;
+use Data::Dumper;
+use List::Util qw(max min sum);
+use feature qw(switch);
+use Memoize;
+memoize qw( factorial );
+#part 1
+my $e;
+my $iterLimit = 100;
+for my $i (0..$iterLimit){
+	$e += exponTerm( $i );	
+	if( $i == $iterLimit ){
+		print "value of e after $iterLimit iteration => $e\n" 
+	}
+}
+
+sub exponTerm{
+	my ($n) = @_;
+	return 1/factorial($n);
+}
+
+sub factorial{
+	my ($n) = @_;
+	if( $n < 2 ){
+		return 1;
+	}
+	return $n * factorial($n-1);
+}
+
+