Rosetta Code

Pell numbers: Difference between revisions

Page Discussion

Pell numbers (view source)

Revision as of 08:07, 23 July 2023

77 bytes removed ,  10 months ago
→‎{{header|ALGOL 68}}: Simplify a bit
(→‎{{header|ALGOL 68}}: Simplify a bit)
Line 127:
 
print( ( newline, "First 10 Pell primes:", newline, "index Pell prime", newline ) );
INT pdxc := 20;
INTFOR cpdx FROM 2 WHILE c < :=10 0;DO
WHILE▼
IF is probably prime( p[ pdx ] ) THEN
print( ( whole( pdx, -5 ), " ", whole( p[ pdx ], 0 ), newline ) );
c +:= 1
FI;
pdx +:= 1OD;
c < 10
DO SKIP OD;
 
[ 0 : 20 ]LONG INT nsw;
FOR n FROM 0 TO 19 DO nsw[ n ] := p[ 2 * n ] + p[ 2 * n + 1 ] OD;▼
print( ( newline, newline, "First 20 Newman-Shank-Williams numbers:", newline ) );
FOR n FROM 0 TO 19 DO print( ( " ", whole( nsw[ n ], 0 ) ) ); IF n = 13 THEN print( ( newline ) ) FI OD;
▲ FOR n FROM 0 TOLONG 19 DOINT nsw[ n ] := p[ 2 * n ] + p[ 2 * n + 1 ] OD;
print( ( " ", whole( nsw, 0 ) ) ); IF n = 13 THEN print( ( newline ) ) FI
▲ WHILEOD;
 
print( ( newline, newline, "First 20 near isosceles right triangles:", newline ) );
Tigerofdarkness
3,032

edits

Retrieved from "https://rosettacode.org/wiki/Special:MobileDiff/346769"