From a9033deddb8435c32ffa0f1500288cf4473070b8 Mon Sep 17 00:00:00 2001
From: lakpatashi <lakpatashi@gmail.com>
Date: Tue, 27 Apr 2021 10:18:28 +0530
Subject: Finish challenge-014 ch-1 only with perl

---
 challenge-014/lakpatashi/README       |  1 +
 challenge-014/lakpatashi/perl/ch-1.pl | 24 ++++++++++++++++++++++++
 2 files changed, 25 insertions(+)
 create mode 100644 challenge-014/lakpatashi/README
 create mode 100755 challenge-014/lakpatashi/perl/ch-1.pl

diff --git a/challenge-014/lakpatashi/README b/challenge-014/lakpatashi/README
new file mode 100644
index 0000000000..bc153bd576
--- /dev/null
+++ b/challenge-014/lakpatashi/README
@@ -0,0 +1 @@
+Solution by lakpatashi
diff --git a/challenge-014/lakpatashi/perl/ch-1.pl b/challenge-014/lakpatashi/perl/ch-1.pl
new file mode 100755
index 0000000000..1ea2415974
--- /dev/null
+++ b/challenge-014/lakpatashi/perl/ch-1.pl
@@ -0,0 +1,24 @@
+#!/usr/bin/perl
+
+use warnings;
+use strict;
+use Data::Dumper;
+use List::Util qw(sum);
+use feature qw(switch);
+
+#part 1
+my $max = 1000;
+my @seq = (0)x$max;
+vanEckSeq();	# building pre compiled seq
+
+print "@seq[0..10]\n";
+sub vanEckSeq{
+	for my $i (0..$max-1){
+		for my $j (reverse 0..$i-1){
+			if($seq[$j] == $seq[$i]){
+				$seq[$i+1] = $i-$j;
+				last;
+			}	
+		}
+	}
+}
-- 
cgit