Numbers k such that the last letter of k is the same as the first letter of k+1: Difference between revisions

Content added Content deleted
(Added Algol 68)
Line 76: Line 76:
INT next to show := 1 000;
INT next to show := 1 000;
INT count := 0;
INT count := 0;
print( ( "The first 50 numbers:", newline ) );
FOR n WHILE count < 1 000 000 DO
FOR n WHILE count < 1 000 000 DO
INT k = n - 1;
INT k = n - 1;
Line 97: Line 98:
FI
FI
FI;
FI;
prev end := IF n MOD 1 000 = 0
INT n99 = n MOD 100;
THEN IF n MOD 1 000 000 = 0
prev end := IF n99 > 0
THEN "n"
THEN e99[ n99 ]
ELSE "d"
ELIF n MOD 1 000 000 = 0
FI
THEN "n"
ELSE INT n99 = n MOD 100;
ELSE "d"
IF n99 = 0
THEN "d"
ELSE e99[ n99 ]
FI
FI
FI
OD
OD
Line 113: Line 110:
{{out}}
{{out}}
<pre>
<pre>
The first 50 numbers:
0 18 28 38 79 81 83 85 97 102
0 18 28 38 79 81 83 85 97 102
122 132 142 152 162 172 182 192 208 228
122 132 142 152 162 172 182 192 208 228
Retrieved from "https://rosettacode.org/wiki/Numbers_k_such_that_the_last_letter_of_k_is_the_same_as_the_first_letter_of_k%2B1"