Humble numbers: Difference between revisions
Content added Content deleted
(Added XPL0 example.) |
m (→{{header|PL/M}}: typo) |
||
Line 4,537: | Line 4,537: | ||
IF A < B THEN RETURN( A ); ELSE RETURN( B ); |
IF A < B THEN RETURN( A ); ELSE RETURN( B ); |
||
END MIN; |
END MIN; |
||
/* DISPLAY A |
/* DISPLAY A STATISTIC ABOUT HUMBLE NUMBERS */ |
||
PRINT$H$STAT: PROCEDURE( S, D ); |
PRINT$H$STAT: PROCEDURE( S, D ); |
||
DECLARE ( S, D ) ADDRESS; |
DECLARE ( S, D ) ADDRESS; |