unzipping ( n -- quot )

Vocabulary

assocs.extras.private

Inputs

n

an object

Outputs

quot

an object

Definition

USING: assocs.extras kernel math ;

IN: assocs.extras.private

: unzipping ( n -- quot )
    dup 1 > [ [ nunzip ] curry ] [ drop [ ] ] if ;