blob: 7acad0424da18fde27f671f9dac3bda907b82d1a (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
|
Solutions by Bruce Gray for https://theweeklychallenge.org/blog/perl-weekly-challenge-147/
NOTE: Both Task#2 solutions deliberately avoid the need for is_pentagon_number(),
[as per quadratic transformation of `n(3n-1)/2 = P`
to `sqrt(24P + 1) must be 5(mod 6)` and `24P + 1 must be a perfect square`]
, just for fun.
Sample runs:
$ perl perl/ch-1.pl
2 3 5 7 13 17 23 37 43 47 53 67 73 83 97 103 107 113 137 167
2 3 5 7 13 17 23 37 43 47 53 67 73 83 97 113 137 167 173 197
$ raku raku/ch-1.raku
2 3 5 7 13 17 23 37 43 47 53 67 73 83 97 103 107 113 137 167
2 3 5 7 13 17 23 37 43 47 53 67 73 83 97 113 137 167 173 197
$ perl perl/ch-2.pl
7042750 5482660
$ time raku raku/ch-2.raku
7042750 5482660
real 0m2.432s
user 0m2.534s
sys 0m0.067s
|
