announce-url ( metainfo -- url )

Vocabulary

bittorrent

Inputs

metainfo

an object

Outputs

url

an object

Definition

USING: assocs kernel random sequences ;

IN: bittorrent

: announce-url ( metainfo -- url )
    dup "announce-list" of
    [ nip first random ] [ "announce" of ] if* ;