Post Reply 
(50G) Digits sum (50g)
04-17-2020, 10:42 AM
Post: #8
RE: Digits sum (50g)
Very nice & fast programme, John Keith.

So fast that a sys version is not really necessary, but I couldn't resist:

Code:
Size: 69.5

CkSum: # 2F18h

::
  CK1&Dispatch
  # FF
  ::
    FPTR2 ^Z>S
    ZEROSWAP
    BINT10
    ONE_DO
    INDEX@
    BINT48
    #+
    #>CHR
    CHR>$
    NULL$
    FPTR F 1A
    COERCE
    INDEX@
    #*
    ROT#+
    SWAPLOOP
    DROP
    UNCOERCE
  ;
;
Find all posts by this user
Quote this message in a reply
Post Reply 


Messages In This Thread
(50G) Digits sum (50g) - Juan14 - 04-12-2020, 08:05 PM
RE: Digits sum (50g) - grsbanks - 04-13-2020, 09:45 AM
RE: Digits sum (50g) - Nihotte(lma) - 04-13-2020, 08:38 PM
RE: Digits sum (50g) - Juan14 - 04-13-2020, 11:01 PM
RE: Digits sum (50g) - DavidM - 04-15-2020, 03:49 AM
RE: Digits sum (50g) - John Keith - 04-15-2020, 10:21 PM
RE: Digits sum (50g) - DavidM - 04-17-2020, 04:31 AM
RE: Digits sum (50g) - Gerald H - 04-17-2020 10:42 AM
RE: (50G) Digits sum (50g) - gor1060 - 12-11-2022, 11:15 AM



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