nth* ( n seq -- elt/0 )

Vocabulary

project-euler.116.private

Inputs

n	an object
seq	an object

Outputs

elt/0

an object

Definition

USING: kernel math sequences ;

IN: project-euler.116.private

: nth* ( n seq -- elt/0 ) [ length swap - 1 - ] keep ?nth 0 or ;