pick-sheet ( seq i -- res )

Vocabulary

project-euler.151

Inputs

seq	an object
i	an object

Outputs

res

an object

Definition

USING: kernel math sequences ;

IN: project-euler.151

: pick-sheet ( seq i -- res )
    2dup swap nth dup zero?
    [ 3drop 0 ] [ [ (pick-sheet) (euler151) ] dip * ] if ;