diff options
| author | Mohammad S Anwar <Mohammad.Anwar@yahoo.com> | 2022-03-31 15:39:16 +0100 |
|---|---|---|
| committer | GitHub <noreply@github.com> | 2022-03-31 15:39:16 +0100 |
| commit | c5b3b7dc0cac75fe64ae9d43df7fc0fd995b0192 (patch) | |
| tree | 1b4cd87f6b6291c39b12ebbf4e16c58aa2f29390 | |
| parent | ce2c5558f6ee712548b43fc6f307eabff964bc93 (diff) | |
| parent | c10945b03e175dafc4d22f319ebe4d09de9de480 (diff) | |
| download | perlweeklychallenge-club-c5b3b7dc0cac75fe64ae9d43df7fc0fd995b0192.tar.gz perlweeklychallenge-club-c5b3b7dc0cac75fe64ae9d43df7fc0fd995b0192.tar.bz2 perlweeklychallenge-club-c5b3b7dc0cac75fe64ae9d43df7fc0fd995b0192.zip | |
Merge pull request #5864 from pokgopun/pwc158
simplify formula for cuban prime
| -rw-r--r-- | challenge-158/pokgopun/go/ch-2.go | 7 | ||||
| -rw-r--r-- | challenge-158/pokgopun/perl/ch-2.pl | 6 |
2 files changed, 8 insertions, 5 deletions
diff --git a/challenge-158/pokgopun/go/ch-2.go b/challenge-158/pokgopun/go/ch-2.go index f3073b8ef8..161f916816 100644 --- a/challenge-158/pokgopun/go/ch-2.go +++ b/challenge-158/pokgopun/go/ch-2.go @@ -2,16 +2,17 @@ package main import ( "fmt" - "math" ) const max = 1000 func main() { - i := 2 + //i := 2 + i := 1 var cp string for { - n := int(math.Pow(float64(i), 3) - math.Pow(float64(i-1), 3)) + //n := int(math.Pow(float64(i), 3) - math.Pow(float64(i-1), 3)) + n := 3*i*i + 3*i + 1 if n > max { break } diff --git a/challenge-158/pokgopun/perl/ch-2.pl b/challenge-158/pokgopun/perl/ch-2.pl index 9db7a1a759..04dfcf9892 100644 --- a/challenge-158/pokgopun/perl/ch-2.pl +++ b/challenge-158/pokgopun/perl/ch-2.pl @@ -5,9 +5,11 @@ use Math::Prime::Util qw/is_prime/; my $n = shift; $n = 1000 unless $n && $n =~ /^\d+$/; my $o = ""; -my $i = 2; +#my $i = 2; +my $i = 1; { - my $cp = $i**3 - ($i-1)**3; + #my $cp = $i**3 - ($i-1)**3; + my $cp = 3*$i*$i + 3*$i + 1; last if $cp > $n; $o .= ", $cp" if is_prime($cp); $i++; |