From 4f996b5dd45569e1fafb33cec89534287f1654cc Mon Sep 17 00:00:00 2001
From: lakpatashi <lakpatashi@gmail.com>
Date: Sun, 9 May 2021 23:37:39 +0530
Subject: Finished challenge-017 ch-1 only with perl

---
 challenge-017/lakpatashi/README       |  1 +
 challenge-017/lakpatashi/perl/ch-1.pl | 22 ++++++++++++++++++++++
 2 files changed, 23 insertions(+)
 create mode 100644 challenge-017/lakpatashi/README
 create mode 100755 challenge-017/lakpatashi/perl/ch-1.pl

diff --git a/challenge-017/lakpatashi/README b/challenge-017/lakpatashi/README
new file mode 100644
index 0000000000..bc153bd576
--- /dev/null
+++ b/challenge-017/lakpatashi/README
@@ -0,0 +1 @@
+Solution by lakpatashi
diff --git a/challenge-017/lakpatashi/perl/ch-1.pl b/challenge-017/lakpatashi/perl/ch-1.pl
new file mode 100755
index 0000000000..e20e9d7e2f
--- /dev/null
+++ b/challenge-017/lakpatashi/perl/ch-1.pl
@@ -0,0 +1,22 @@
+#!/usr/bin/perl
+
+use warnings;
+use strict;
+use Data::Dumper;
+use List::Util qw(sum);
+use feature qw(switch);
+
+#part 1
+sub A{
+	my ($m,$n) = @_;
+	if($m == 0){
+		return $n+1
+	}elsif($n == 0){
+		return A($m-1,1);
+	}else{
+		return A($m-1, A($m, $n-1));
+	}
+}
+print A(1,2);
+
+#part 2
-- 
cgit