<cmwc> ( length a b c -- cmwc )

Vocabulary

random.cmwc

Inputs

length	an object
a	an object
b	an object
c	an object

Outputs

cmwc

an object

Definition

USING: accessors alien.c-types alien.data kernel math sequences
;

IN: random.cmwc

: <cmwc> ( length a b c -- cmwc )
    cmwc new swap >>c swap >>b swap >>a swap
    [ 1 - >>i ] [ uint <c-array> >>Q ] bi dup b>> 1 - >>r
    dup Q>> length 1 - >>mod ; inline