diff options
| author | E7-87-83 <fungcheokyin@gmail.com> | 2021-07-13 10:45:26 +0800 |
|---|---|---|
| committer | E7-87-83 <fungcheokyin@gmail.com> | 2021-07-13 10:45:26 +0800 |
| commit | b2ff2b4c49b294499f13cfd6a0c9808df27a5bab (patch) | |
| tree | 2107bf7c00d620d44e2dff8ede368175ccd6e3a5 | |
| parent | de7890d7f27c9aa373e9c9d0e59be15df60f0c2f (diff) | |
| download | perlweeklychallenge-club-b2ff2b4c49b294499f13cfd6a0c9808df27a5bab.tar.gz perlweeklychallenge-club-b2ff2b4c49b294499f13cfd6a0c9808df27a5bab.tar.bz2 perlweeklychallenge-club-b2ff2b4c49b294499f13cfd6a0c9808df27a5bab.zip | |
Task 2 Brute Force solutions
| -rw-r--r-- | challenge-121/cheok-yin-fung/perl/ch-2.pl | 12 |
1 files changed, 6 insertions, 6 deletions
diff --git a/challenge-121/cheok-yin-fung/perl/ch-2.pl b/challenge-121/cheok-yin-fung/perl/ch-2.pl index 0cbea74980..628dee8d95 100644 --- a/challenge-121/cheok-yin-fung/perl/ch-2.pl +++ b/challenge-121/cheok-yin-fung/perl/ch-2.pl @@ -56,16 +56,16 @@ $M = $M09; my $N = $ARGV[0] || scalar @{$M}; # $M = $M04, $N = 4 (Task Example) -# (0 2 1 3 0) -# length: 10 +# length = 10 +# tour = (0 2 1 3 0) # $M = $M15, $N = 11 -# Z A E I J B G F D H C Z -# length: 30 +# length = 30 +# tour = (0 1 5 9 10 2 7 6 4 8 3) # $M = $M15, $N = 12 -# Z A E I J B G F D H K C Z -# length: 33 +# length = 33 +# tour = (0 1 5 9 10 2 7 6 4 8 11 3 0) my $min = 10000; my @arr_min = (); |