(random-segments) ( segments n -- segments )

Vocabulary

jamshred.tunnel

Inputs

segments	an object
n	an object

Outputs

segments

an object

Definition

USING: kernel math sequences ;

IN: jamshred.tunnel

: (random-segments) ( segments n -- segments )
    [ dup last random-segment suffix! ] times ;