Post Reply 
(49G) Friday 13th calculation
06-24-2014, 07:30 AM
Post: #9
RE: HP 49G Friday 13th calculation
Thanks, Joe.
I missed the obvious shortcut: take -5. 6. START NEXT i.o. 1 12 START NEXT
Now it's 86.5 bytes - shorter than your original ;-)

Code:
\<<
  6. ALOG / 12.12 + 
  -5. 6. START
    1. DATE+
    DUP 4.043 DDAYS 7. MOD NOT DUPN
    1.01 -
  NEXT
  DROP
\>>

Cheers, Werner

41CV†,42S,48GX,49G,DM42,DM41X,17BII,15CE,DM15L,12C,16CE
Find all posts by this user
Quote this message in a reply
Post Reply 


Messages In This Thread
(49G) Friday 13th calculation - Gerald H - 06-21-2014, 02:09 PM
RE: HP 49G Friday 13th calculation - HP67 - 06-22-2014, 06:23 AM
RE: HP 49G Friday 13th calculation - Werner - 06-24-2014 07:30 AM



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