Pell numbers: Difference between revisions
Content added Content deleted
(Pell numbers en FreeBASIC) |
Thundergnat (talk | contribs) m (→{{header|Raku}}: typos) |
||
Line 570: | Line 570: | ||
say "\nFirst $upto Newman-Shank-Williams numbers:\n" ~ (^$upto).map({ $pell[2 × $_, 2 × $_+1].sum }); |
say "\nFirst $upto Newman-Shank-Williams numbers:\n" ~ (^$upto).map({ $pell[2 × $_, 2 × $_+1].sum }); |
||
say "\nFirst $upto near |
say "\nFirst $upto near isosceles right triangles:"; |
||
map -> \p { printf "(%d, %d, %d)\n", |($_, $_+1 given $pell[^(2 × p + 1)].sum), $pell[2 × p + 1] }, 1..$upto;</lang> |
map -> \p { printf "(%d, %d, %d)\n", |($_, $_+1 given $pell[^(2 × p + 1)].sum), $pell[2 × p + 1] }, 1..$upto;</lang> |
||
{{out}} |
{{out}} |
||
Line 629: | Line 629: | ||
1 7 41 239 1393 8119 47321 275807 1607521 9369319 54608393 318281039 1855077841 10812186007 63018038201 367296043199 2140758220993 12477253282759 72722761475561 423859315570607 |
1 7 41 239 1393 8119 47321 275807 1607521 9369319 54608393 318281039 1855077841 10812186007 63018038201 367296043199 2140758220993 12477253282759 72722761475561 423859315570607 |
||
First 20 near |
First 20 near isosceles right triangles: |
||
(3, 4, 5) |
(3, 4, 5) |
||
(20, 21, 29) |
(20, 21, 29) |