diff options
| -rwxr-xr-x | challenge-147/wlmb/perl/ch-2b.pl | 1 |
1 files changed, 0 insertions, 1 deletions
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; |