From 7bea5ff392f56d61f6334766a56d088e4fb21a97 Mon Sep 17 00:00:00 2001
From: lakpatashi <lakpatashi@gmail.com>
Date: Tue, 11 May 2021 19:10:31 +0530
Subject: Finished challenge-021 ch-1 only with perl

---
 challenge-021/lakpatashi/README       |  1 +
 challenge-021/lakpatashi/perl/ch-1.pl | 33 +++++++++++++++++++++++++++++++++
 2 files changed, 34 insertions(+)
 create mode 100644 challenge-021/lakpatashi/README
 create mode 100755 challenge-021/lakpatashi/perl/ch-1.pl

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);
+}
+
+
-- 
cgit