next ( seq -- )

Vocabulary

project-euler.117.private

Inputs

seq

an object

Outputs

None

Definition

USING: kernel sequences ;

IN: project-euler.117.private

: next ( seq -- ) [ 4 index-or-length tail* sum ] keep push ;