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

---
 challenge-147/wlmb/perl/ch-2a.pl | 3 +--
 1 file changed, 1 insertion(+), 2 deletions(-)

diff --git a/challenge-147/wlmb/perl/ch-2a.pl b/challenge-147/wlmb/perl/ch-2a.pl
index 038b9630d3..5dca4ebda9 100755
--- a/challenge-147/wlmb/perl/ch-2a.pl
+++ b/challenge-147/wlmb/perl/ch-2a.pl
@@ -14,8 +14,7 @@ my $N=shift;
 my $start=time();
 my $n=zeroes(long, $N)->xvals+1;
 my $p=$n*(3*$n-1)/2;
-my $check=pentagonal($p);
-for my $i (2..$p->nelem){
+for my $i (1..$p->nelem){
     my $pi=$p(($i-1));
     my $pass=which(pentagonal($pi+$p) & pentagonal($pi-$p));
     next unless $pass->nelem;
-- 
cgit