From 6b0b91b957e4e3c3e0c37dbd703ffaa09ebcdd23 Mon Sep 17 00:00:00 2001 From: Doomtrain14 Date: Tue, 10 Sep 2019 15:30:49 +0800 Subject: Updated comments --- challenge-025/yet-ebreo/perl5/ch-2.pl | 8 +++----- 1 file changed, 3 insertions(+), 5 deletions(-) diff --git a/challenge-025/yet-ebreo/perl5/ch-2.pl b/challenge-025/yet-ebreo/perl5/ch-2.pl index d6c99307b4..6d9003b689 100644 --- a/challenge-025/yet-ebreo/perl5/ch-2.pl +++ b/challenge-025/yet-ebreo/perl5/ch-2.pl @@ -6,15 +6,13 @@ use strict; use warnings; use 5.010; +#It should be okay to modify the zenith/nadir (0 to $wheelsize) use constant ZENITH => 0; use constant NADIR => 13; -my @g_pt; -my @g_ct; - #Initialize wheels (chaocipher with bigger wheels!) -my @pt = @g_pt = "7bqkj9l2hOWyzA8SLPEtRvBwUQVmxa45g ufspeTF1KHd0DrGMCZoJXi3YIN6nc"=~/./g; -my @ct = @g_ct = "vEDclCHZYeWo9drb6Jnkf5MRXOt UgN4Fi231GzQIx7sPaLK8TBuVpA0yjShqwm"=~/./g; +my @pt = "7bqkj9l2hOWyzA8SLPEtRvBwUQVmxa45g ufspeTF1KHd0DrGMCZoJXi3YIN6nc"=~/./g; +my @ct = "vEDclCHZYeWo9drb6Jnkf5MRXOt UgN4Fi231GzQIx7sPaLK8TBuVpA0yjShqwm"=~/./g; my $wheel_size = $#pt; -- cgit