From 49715bb9e617d9cf5c1b8895087e46a3331d4927 Mon Sep 17 00:00:00 2001 From: drbaggy Date: Tue, 4 Jan 2022 09:16:29 +0000 Subject: sqrt -> square --- challenge-146/james-smith/README.md | 2 +- challenge-146/james-smith/perl/ch-1.pl | 2 +- 2 files changed, 2 insertions(+), 2 deletions(-) diff --git a/challenge-146/james-smith/README.md b/challenge-146/james-smith/README.md index 9574f3753d..b25034a695 100644 --- a/challenge-146/james-smith/README.md +++ b/challenge-146/james-smith/README.md @@ -26,7 +26,7 @@ We could use a Prime module, but finding primes is not that difficult so we will my @primes = (3); for( my $c=5; @primes<10000; $c+=2 ) { - ($_>sqrt$c)?((push@primes,$c),last):$c%$_||last for @primes; + ($_*$_>$c)?((push@primes,$c),last):$c%$_||last for @primes; } say $primes[-1]; diff --git a/challenge-146/james-smith/perl/ch-1.pl b/challenge-146/james-smith/perl/ch-1.pl index fe3c61704e..692ac8d92d 100644 --- a/challenge-146/james-smith/perl/ch-1.pl +++ b/challenge-146/james-smith/perl/ch-1.pl @@ -8,7 +8,7 @@ use feature qw(say); my @primes = (2); for( my $c=3; @primes<10001; $c+=2 ) { - ($_>sqrt$c)?((push@primes,$c),last):$c%$_||last for @primes; + ($_*$_>$c)?((push@primes,$c),last):$c%$_||last for @primes; } say $primes[-1]; -- cgit