Post Reply 
HHC 2016 RPL Programming Contest
09-19-2016, 02:10 PM
Post: #11
RE: HHC 2016 RPL Programming Contest
Okay, I'm so rusty in UserRPL that I couldn't get anything better than 94.5 bytes, and even for that I had to look at the solutions already posted here to find out that POS is a thing. Earlier iterations used a slow bulky UserRPL loop doing roughly the same...
I'm more experienced in SysRPL, so I'll post that one instead. 40 bytes, checksum #EC76h:
Code:
::
  ZERO OVERLEN$ ONE_DO
    OVER CDR$ DUP4UNROLL
    ROT CAR$ OVERLEN$ POSCHRREV
    #MAX
  LOOP SWAPDROP UNCOERCE
;
For an even better score you could omit the UNCOERCE at the end. This would leave the result as a BINT on the stack, but those are readable at least, even with SysRPL stack display off. That would bring the size to 37.5 bytes, with the checksum #F514h.
Being a SysRPL program it's disqualified of course. But I'd like to see if someone else can squeeze another command out of this.
Find all posts by this user
Quote this message in a reply
Post Reply 


Messages In This Thread
HHC 2016 RPL Programming Contest - Gene - 09-17-2016, 01:39 PM
RE: HHC 2016 RPL Programming Contest - 3298 - 09-19-2016 02:10 PM



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