array-length ( seq -- n )

Vocabulary

alien.arrays

Inputs

seq

an object

Outputs

n

an object

Definition

USING: accessors combinators kernel math sequences words ;

IN: alien.arrays

: array-length ( seq -- n )
    [ dup word? [ def>> ( -- object ) call-effect ] when ] [ * ]
    map-reduce ;