Ludic numbers: Difference between revisions
Content added Content deleted
(adding 2nd version) |
(fixed) |
||
Line 1,698: | Line 1,698: | ||
=={{header|PL/I}}== |
=={{header|PL/I}}== |
||
{{incorrect|PL/I|Missing Triplet 1,3,7.}} |
|||
<lang PL/I>Ludic_numbers: procedure options (main); /* 18 April 2014 */ |
<lang PL/I>Ludic_numbers: procedure options (main); /* 18 April 2014 */ |
||
declare V(2:22000) fixed, L(2200) fixed; |
declare V(2:22000) fixed, L(2200) fixed; |
||
Line 1,733: | Line 1,733: | ||
put skip; |
put skip; |
||
i = 1; |
i = 1; |
||
put edit ('(', L(1), L(3), L(5), ') ' ) (A, 3 F(4), A); |
|||
do i = 1 by 1 while (L(i+2) <= 250); |
do i = 1 by 1 while (L(i+2) <= 250); |
||
if (L(i) = L(i+1) - 2) & (L(i) = L(i+2) - 6) then |
if (L(i) = L(i+1) - 2) & (L(i) = L(i+2) - 6) then |
||
Line 1,759: | Line 1,760: | ||
21475 21481 21487 21493 21503 21511 |
21475 21481 21487 21493 21503 21511 |
||
Triples are: |
Triples are: |
||
( 5 7 11) ( 11 13 17) ( 23 25 29) ( 41 43 47) |
( 1 3 7) ( 5 7 11) ( 11 13 17) ( 23 25 29) ( 41 43 47) |
||
( 173 175 179) ( 221 223 227) ( 233 235 239)</pre> |
( 173 175 179) ( 221 223 227) ( 233 235 239)</pre> |
||