Weird numbers: Difference between revisions
m
→{{header|ALGOL 68}}: tweakette
(Added Algol 68) |
m (→{{header|ALGOL 68}}: tweakette) |
||
Line 121:
# returns TRUE if n with divisors divs, is semiperfect, FALSE otherwise #
PROC semiperfect = ( INT n, []INT divs, INT lb, ub )BOOL:
IF
THEN FALSE
ELIF INT h = divs[ lb ];
|