bignum>sequence ( n -- seq )

Vocabulary

bootstrap.image.private

Inputs

n

an object

Outputs

seq

an object

Definition

USING: kernel math sequences ;

IN: bootstrap.image.private

: bignum>sequence ( n -- seq )
    [ dup 0 > ]
    [ [ bignum-bits neg shift ] [ bignum-radix bitand ] bi ]
    produce nip ;