Top three calculators ?

[Pekis]

(04-05-2018 08:37 AM)pier4r Wrote:  

(04-05-2018 07:42 AM)Pekis Wrote:  Intuitive RPL, is it a joke ?

Do you want to argue subjectivity?

It is true that you can make a pool and get what is more readable for the audience, but it doesn't mean that one person should be forced to find other structures (RPL) less readable.

Some people find RPN and RPL better than infix and basic. That's it.
I for one love RPL, but I say that Basic is more readable. As RPN is pretty neat, but infix is more readable.

But I think no one can deny that the mind can't figure instantly what all these stack operations are doing in RPL (and RPN), and you'll end up documenting with pseudo-code tasting like ... BASIC:


Day of week:

RPL
<< ROT 2 -
IF DUP 0 < THEN
12 +
SWAP 1 - SWAP
END
3 ROLLD
100 / DUP FP 100 * SWAP IP
DUP 4 / IP SWAP 2 * - SWAP DUP 4 / IP
+ + + SWAP 2.6 * .2 - IP + 7 MOD
{ "Sunday"
"Monday"
"Tuesday"
"Wednesday"
"Thrusday"
"Friday"
"Saturday" }
SWAP 1 + GET
>>

Basic:
Function ZellerDoW$(yr, mo, dy)
m = mo - 2
if m<1 then
m = m + 12
yr = yr - 1
end if
c = int(yr/100)
d = yr - 100*int(yr/100)
f = int(2.6*m - 0.2) + dy + d + int(d/4) + int(c/4) + 5*c
f = f - 7*int(f/7)
dow$ = "Sunday Monday Tuesday Wednesday Thursday Friday Saturday"
ZellerDoW$ = word$(dow$, f+1)
end function