From 5e569cc0502be055b953b9cca077fd00bfaefe1c Mon Sep 17 00:00:00 2001
From: drbaggy <js5@sanger.ac.uk>
Date: Thu, 24 Jun 2021 07:33:07 +0100
Subject: add a dump of the transition matrix

---
 challenge-118/james-smith/perl/ch-2.pl | 5 +++++
 1 file changed, 5 insertions(+)

diff --git a/challenge-118/james-smith/perl/ch-2.pl b/challenge-118/james-smith/perl/ch-2.pl
index 5e1d821aae..d7361320e6 100644
--- a/challenge-118/james-smith/perl/ch-2.pl
+++ b/challenge-118/james-smith/perl/ch-2.pl
@@ -11,6 +11,11 @@ use Data::Dumper qw(Dumper);
 my @dir = ([-2,1],[2,1],[-2,-1],[2,-1],[-1,2],[1,2],[-1,-2],[1,-2]);
 my $trans = get_trans();
 
+say '';
+say '[';
+say '  [', join( q(, ), sort { $a<=>$b } @{$_}), '],' foreach @{$trans};
+say ']';
+say '';
 my @treasures = qw(a2 b1 b2 b3 c4 e6);
 my( $sol, $best_len, $best_rt ) = ( 0, 65 );
 $sol |= 1 <<  8 * (substr $_,1) - 105 + ord $_ foreach @treasures;
-- 
cgit