18 lines
590 B
Text
18 lines
590 B
Text
NORMAL MODE IS INTEGER
|
|
|
|
R FUNCTION THAT CHECKS IF NUMBER IS PERFECT
|
|
INTERNAL FUNCTION(N)
|
|
ENTRY TO PERFCT.
|
|
DSUM = 0
|
|
THROUGH SUMMAT, FOR CAND=1, 1, CAND.GE.N
|
|
SUMMAT WHENEVER N/CAND*CAND.E.N, DSUM = DSUM+CAND
|
|
FUNCTION RETURN DSUM.E.N
|
|
END OF FUNCTION
|
|
|
|
R PRINT PERFECT NUMBERS UP TO 10,000
|
|
THROUGH SHOW, FOR I=1, 1, I.G.10000
|
|
SHOW WHENEVER PERFCT.(I), PRINT FORMAT FMT,I
|
|
|
|
VECTOR VALUES FMT = $I5*$
|
|
PRINT COMMENT $ $
|
|
END OF PROGRAM
|