Ludic numbers: Difference between revisions
Content added Content deleted
(Added solution for Action!) |
|||
| Line 434: | Line 434: | ||
OD |
OD |
||
RETURN (res) |
RETURN (res) |
||
PROC PrintLudicTriplets(BYTE ARRAY a INT max) |
|||
INT i,j |
|||
j=0 |
|||
FOR i=0 TO max-6 |
|||
DO |
|||
IF a(i)=LUDIC AND a(i+2)=LUDIC AND a(i+6)=LUDIC THEN |
|||
j==+1 |
|||
PrintF("%I. %I-%I-%I%E",j,i,i+2,i+6) |
|||
FI |
|||
OD |
|||
RETURN |
|||
PROC Main() |
PROC Main() |
||
| Line 452: | Line 465: | ||
PrintE("2000'th..2005'th ludic numbers:") |
PrintE("2000'th..2005'th ludic numbers:") |
||
PrintLudicNumbers(lud,COUNT+1,1999,2004) |
PrintLudicNumbers(lud,COUNT+1,1999,2004) |
||
PrintE("Ludic triplets below 250") |
|||
PrintLudicTriplets(lud,249) |
|||
RETURN</lang> |
RETURN</lang> |
||
{{out}} |
{{out}} |
||
| Line 463: | Line 479: | ||
2000'th..2005'th ludic numbers: |
2000'th..2005'th ludic numbers: |
||
21475 21481 21487 21493 21503 21511 |
21475 21481 21487 21493 21503 21511 |
||
Ludic triplets below 250 |
|||
1. 1-3-7 |
|||
2. 5-7-11 |
|||
3. 11-13-17 |
|||
4. 23-25-29 |
|||
5. 41-43-47 |
|||
6. 173-175-179 |
|||
7. 221-223-227 |
|||
8. 233-235-239 |
|||
</pre> |
</pre> |
||