first-row ( n -- t )

Vocabulary

project-euler.215.private

Inputs

n

an object

Outputs

t

an object

Definition

USING: kernel locals.backend math ;

IN: project-euler.215.private

: first-row ( n -- t )
    [ <failure> <success> <failure> ] dip 1 - [
        3 load-locals -1 get-local 0 get-local <block>
        -2 get-local -1 get-local 3 drop-locals
    ] times 2drop ;