neighbors ( index world -- # )

Vocabulary

rosetta-code.one-d-cellular

Inputs

index	an object
world	an object

Outputs

#

an object

Definition

USING: kernel math sequences ;

IN: rosetta-code.one-d-cellular

:: neighbors ( index world -- # )
    index [ 1 - ] [ 1 + ] bi [ world ?nth ] bi@ bool-sum ;