Post Reply 
(49g 50g) Bell numbers
03-04-2020, 05:37 AM
Post: #3
RE: (49g 50g) Bell numbers
For integer input N the programme returns the Nth Bell number:

Code:
Size: 117.

CkSum: # 4DCAh

::
  CK1&Dispatch
  # FF
  ::
    FPTR2 ^DupZIsNeg?
    caseSIZEERR
    FPTR2 ^DupQIsZero?
    casedrop
    ZINT 1
    DUP
    ZINT 3
    Z<
    ?SEMI
    FPTR2 ^Z2BIN
    DUP1LAMBIND
    ZINT 1
    SWAP
    ONE_DO
    DUPINDEX@
    #>$
    BIGDISPROW3
    INDEX@
    #1+_ONE_DO
    DUP
    JINDEX@
    #2+ROLL
    FPTR2 ^RADDext
    LOOP
    LOOP
    1GETLAM
    UNROLL
    1GETABND
    #1-
    NDROP
  ;
;
Find all posts by this user
Quote this message in a reply
Post Reply 


Messages In This Thread
(49g 50g) Bell numbers - John Keith - 08-19-2018, 04:14 PM
RE: (49g 50g) Bell numbers - John Keith - 03-03-2020, 09:51 PM
RE: (49g 50g) Bell numbers - Gerald H - 03-04-2020 05:37 AM



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