hairy-local-allot? ( obj -- ? )

Vocabulary

alien.data.private

Inputs

obj

an object

Outputs

?

an object

Definition

USING: arrays combinators.short-circuit kernel sequences ;

IN: alien.data.private

: hairy-local-allot? ( obj -- ? )
    { [ array? ] [ length 3 = ] [ second initial: eq? ] } 1&& ;