diff options
| author | Doomtrain14 <yet.ebreo@gmail.com> | 2019-09-10 15:30:49 +0800 |
|---|---|---|
| committer | Doomtrain14 <yet.ebreo@gmail.com> | 2019-09-10 15:30:49 +0800 |
| commit | 6b0b91b957e4e3c3e0c37dbd703ffaa09ebcdd23 (patch) | |
| tree | 9b47b84449f7922c8a6fae3546bda039983d2f5b | |
| parent | 381b7b57c0594d47fe9107aaa5d1235550593cd0 (diff) | |
| download | perlweeklychallenge-club-6b0b91b957e4e3c3e0c37dbd703ffaa09ebcdd23.tar.gz perlweeklychallenge-club-6b0b91b957e4e3c3e0c37dbd703ffaa09ebcdd23.tar.bz2 perlweeklychallenge-club-6b0b91b957e4e3c3e0c37dbd703ffaa09ebcdd23.zip | |
Updated comments
| -rw-r--r-- | challenge-025/yet-ebreo/perl5/ch-2.pl | 8 |
1 files 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; |