From b2ff2b4c49b294499f13cfd6a0c9808df27a5bab Mon Sep 17 00:00:00 2001 From: E7-87-83 Date: Tue, 13 Jul 2021 10:45:26 +0800 Subject: Task 2 Brute Force solutions --- challenge-121/cheok-yin-fung/perl/ch-2.pl | 12 ++++++------ 1 file 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 = (); -- cgit