prepare-pair ( pair -- pair' )

Vocabulary

combinators.random.private

Inputs

pair

an object

Outputs

pair'

an object

Definition

USING: arrays kernel math sequences ;

IN: combinators.random.private

: prepare-pair ( pair -- pair' )
    first2 [ [ [ - ] [ < ] 2bi ] curry ] [ with-drop ] bi*
    2array ;