Threaded Mode | Linear Mode

Gerald H · (This post was last modified: 06-15-2017 01:40 PM by Gene.)

For integer input N, K the programme below returns the corresponding Lah number.

For info on Lah numbers see

https://en.wikipedia.org/wiki/Lah_number

Code:

::

  CK2&Dispatch

  # FFFF

  ::

    2DUP

    Z1_

    FPTR2 ^RSUBext

    SWAP

    Z1_

    FPTR2 ^RSUBext

    SWAP

    PTR 2EF19

    ROT

    PTR 2EF44

    ROT

    PTR 2EF44

    FPTR2 ^ZQUOText

    FPTR2 ^RMULText

  ;

;