From 29a459894b7cbb34cd15139d513722fb08358166 Mon Sep 17 00:00:00 2001
From: Luis Mochan <mochan@fis.unam.mx>
Date: Wed, 12 Jan 2022 09:41:48 -0600
Subject: Remove unneeded check

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

diff --git a/challenge-147/wlmb/perl/ch-2b.pl b/challenge-147/wlmb/perl/ch-2b.pl
index c029154bc9..320dfedddc 100755
--- a/challenge-147/wlmb/perl/ch-2b.pl
+++ b/challenge-147/wlmb/perl/ch-2b.pl
@@ -14,7 +14,6 @@ my $N=shift;
 my $start=time();
 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 "No solution found. Try to increase the largest_index" unless $pass->dim(1)>0;
 my $ij=$pass(:,(0))+1;
-- 
cgit