From b26ec017a8148667f0b6396fafd64f1ab53b90de Mon Sep 17 00:00:00 2001
From: Luis Mochan <mochan@fis.unam.mx>
Date: Tue, 11 Jan 2022 23:36:41 -0600
Subject: Add more informative message

---
 challenge-147/wlmb/perl/ch-2b.pl | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/challenge-147/wlmb/perl/ch-2b.pl b/challenge-147/wlmb/perl/ch-2b.pl
index 2011132ecd..c029154bc9 100755
--- a/challenge-147/wlmb/perl/ch-2b.pl
+++ b/challenge-147/wlmb/perl/ch-2b.pl
@@ -16,7 +16,7 @@ my $n=zeroes(long, $N)->xvals+1;
 my $p=$n*(3*$n-1)/2;
 my $check=pentagonal($p);
 my $pass=whichND(pentagonal($p+$p(*1)) & pentagonal($p-$p(*1)));
-die "Bad luck" unless $pass->dim(1)>0;
+die "No solution found. Try to increase the largest_index" unless $pass->dim(1)>0;
 my $ij=$pass(:,(0))+1;
 my ($pi, $pj)=map {$p(($_-1))} (my ($i, $j)=map {$ij(($_))} (0,1));
 my ($s, $d)=($pi+$pj, $pi-$pj);
-- 
cgit