diff options
| -rw-r--r-- | challenge-014/steven-wilson/perl5/ch-1.pl | 53 |
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"; |