From b2aec6cfbbbba675f79e1bd4127ed96877a15bb7 Mon Sep 17 00:00:00 2001
From: lakpatashi <lakpatashi@gmail.com>
Date: Sat, 17 Apr 2021 18:25:42 +0530
Subject: Finished challenge-007 ch-1 only with perl

---
 challenge-007/lakpatashi/README       |  1 +
 challenge-007/lakpatashi/perl/ch-1.pl | 11 +++++++++++
 2 files changed, 12 insertions(+)
 create mode 100644 challenge-007/lakpatashi/README
 create mode 100755 challenge-007/lakpatashi/perl/ch-1.pl

diff --git a/challenge-007/lakpatashi/README b/challenge-007/lakpatashi/README
new file mode 100644
index 0000000000..bc153bd576
--- /dev/null
+++ b/challenge-007/lakpatashi/README
@@ -0,0 +1 @@
+Solution by lakpatashi
diff --git a/challenge-007/lakpatashi/perl/ch-1.pl b/challenge-007/lakpatashi/perl/ch-1.pl
new file mode 100755
index 0000000000..647b26e3ca
--- /dev/null
+++ b/challenge-007/lakpatashi/perl/ch-1.pl
@@ -0,0 +1,11 @@
+#!/usr/bin/perl
+
+use strict;
+use warnings;
+use List::Util qw(sum);
+
+# PART 1
+for my $i (1..50){
+	my $digitSum = sum split( //,$i);
+	print "$i\n" unless $i % $digitSum;
+}
-- 
cgit