nth-or-lower ( n seq -- elt )

Vocabulary

sudokus

Inputs

n	an object
seq	an object

Outputs

elt

an object

Definition

USING: kernel math sequences ;

IN: sudokus

: nth-or-lower ( n seq -- elt )
    [ length 1 - 2dup > [ nip ] [ drop ] if ] keep nth ;