Upside-down numbers: Difference between revisions
Content added Content deleted
(Added an Algol68 translation of the Phix sample.) |
(→{{header|ALGOL 68}}: typo, comment) |
||
| Line 34: | Line 34: | ||
Assumes <code>LONG INT</code> is at least 64 bits. |
Assumes <code>LONG INT</code> is at least 64 bits. |
||
<syntaxhighlight lang="algol68"> |
<syntaxhighlight lang="algol68"> |
||
BEGIN # find and |
BEGIN # find and count upside-down numbers - translation of Phix # |
||
PROC get counts = ( INT d, REF LONG INT first, last )LONG INT: |
PROC get counts = ( INT d, REF LONG INT first, last )LONG INT: |
||
BEGIN |
BEGIN |
||