IF THEN Command question

12152013, 09:52 PM
Post: #1




IF THEN Command question
From Page 531, 532 Prime User Manual
EXPORT ISPERFECT(n) BEGIN LOCAL d, sum; 2 ▶ d; 1 ▶ sum; WHILE sum <= n AND d < n DO IF irem(n,d)==0 THEN sum+d ▶ sum; END; d+1 ▶ d; END; RETURN sum==n; END; The following program displays all the perfect numbers up to 1000: EXPORT PERFECTNUMS() BEGIN LOCAL k; FOR k FROM 2 TO 1000 DO IF ISPERFECT(k) THEN MSGBOX(k+" is perfect, press OK"); END; END; END; In the above bolded text, how is the test being performed? In HP50 RPL, it would be tested against a value in level 1 of the stack, but this appears to be an algebraic test. Thanks rcf 

12152013, 10:48 PM
Post: #2




RE: IF THEN Command question
If <returning result from things here is not 0> then ...
My website: ried.cl 

12152013, 11:04 PM
Post: #3




RE: IF THEN Command question
Prime use
0 as False non 0 as True So IF Myfunc(n) THEN ... END; is like IF Myfunc(n) <> 0 THEN ... END; Patrice “Everything should be made as simple as possible, but no simpler.” Albert Einstein 

12162013, 12:22 AM
Post: #4




RE: IF THEN Command question
Thanks Eried and Patrice. That answered my question.
rcf 

« Next Oldest  Next Newest »

User(s) browsing this thread: 1 Guest(s)