From b607a59b4bbe54ef88dd989a2f30a8d33e15368d Mon Sep 17 00:00:00 2001
From: drbaggy <js5@sanger.ac.uk>
Date: Tue, 4 Jan 2022 10:22:26 +0000
Subject: fix 2->3 3->5

---
 challenge-146/james-smith/perl/ch-1.pl | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/challenge-146/james-smith/perl/ch-1.pl b/challenge-146/james-smith/perl/ch-1.pl
index 692ac8d92d..0743994844 100644
--- a/challenge-146/james-smith/perl/ch-1.pl
+++ b/challenge-146/james-smith/perl/ch-1.pl
@@ -5,9 +5,9 @@ use strict;
 use warnings;
 use feature qw(say);
 
-my @primes = (2);
+my @primes = (3);
 
-for( my $c=3; @primes<10001; $c+=2 ) {
+for( my $c=5; @primes<10000; $c+=2 ) {
   ($_*$_>$c)?((push@primes,$c),last):$c%$_||last for @primes;
 }
 
-- 
cgit