Weird numbers: Difference between revisions

m
(Added Algol 68)
Line 121:
# returns TRUE if n with divisors divs, is semiperfect, FALSE otherwise #
PROC semiperfect = ( INT n, []INT divs, INT lb, ub )BOOL:
IF ( ub -< lb ) <= -1
THEN FALSE
ELIF INT h = divs[ lb ];
3,021

edits