synchsafe>sequence ( n -- seq )

Vocabulary

id3.private

Inputs

n

an object

Outputs

seq

an object

Definition

USING: kernel math math.functions sequences ;

IN: id3.private

: synchsafe>sequence ( n -- seq )
    dup 1 + log2 1 + 7 / ceiling
    [ [ -7 shift ] keep 127 bitand ] replicate nip reverse ;