(49G) Nednoc, A Programme of Great Utility, Providing Random Bits

[Gerald H]

Nednoc takes as input some integer produced by some PRNG & returns the number of even digits to stack level 2, the number of odd digits to stack level one, allowing the User (customer, client, operator) to decide on allocating 1 respectively 0 to the preferred larger or lesser of the two.

That's enough utility for one day.

Code:

Size: 81.5

CkSum: # 729Eh

::
  CK1&Dispatch
  # FF
  ::
    FPTR2 ^Z>S
    DUPLEN$
    SWAP
    ZEROSWAP
    BINT5
    ZERO_DO
    INDEX@
    DUP
    #+
    #>$
    NULL$
    FPTR F 1A
    COERCE
    ROT#+SWAP
    LOOP
    DROPDUP
    FPTR2 ^#>Z
    3UNROLL
    #-
    FPTR2 ^#>Z
  ;
;