Merge pull request #298 from oWnOIzRi/new-branch

add solution to challenge 1

1 files changed, 53 insertions, 0 deletions

diff --git a/challenge-014/steven-wilson/perl5/ch-1.pl b/challenge-014/steven-wilson/perl5/ch-1.pl
new file mode 100644
index 0000000000..77f1873153
--- /dev/null
+++ b/challenge-014/steven-wilson/perl5/ch-1.pl
@@ -0,0 +1,53 @@
+#!/usr/bin/env perl
+# Author: Steven Wilson
+# Date: 2019-06-24
+# Week: 014
+# Challenge: #1
+#
+# Write a script to generate Van Eck’s sequence starts with 0. For more
+# information, please check out wikipedia page. This challenge was
+# proposed by team member Andrezgz.
+# https://en.wikipedia.org/wiki/Van_Eck%27s_sequence
+
+use strict;
+use warnings;
+use feature qw / say /;
+
+my $length_of_sequence = 30;
+my $current_position   = 0;
+my $current_int        = 0;
+my %last_int_position;
+my $next_int;
+
+say "Printing the first $length_of_sequence values in Van Eck's sequence:";
+while ( $current_position < $length_of_sequence ) {
+    print "$current_int, ";
+    if ( exists $last_int_position{$current_int} ) {
+        $next_int = $current_position - $last_int_position{$current_int};
+    }
+    else {
+        $next_int = 0;
+    }
+    $last_int_position{$current_int} = $current_position;
+    $current_int = $next_int;
+    $current_position++;
+}
+print "...\n";
+
+# Alternate method using an array to hold sequence:
+#
+# my @sequence = (0);
+# while((scalar @sequence) < $length_of_sequence){
+#     if(exists $last_int_position{$sequence[-1]}){
+#         $next_int = ((scalar @sequence) - $last_int_position{$sequence[-1]});
+#     }
+#     else {
+#         $next_int = 0;
+#     }
+#     $last_int_position{$sequence[-1]} = scalar @sequence;
+#     push @sequence, $next_int;
+# }
+# for (@sequence){
+#     print "$_, ";
+# }
+# print "...\n";