(pick-sheet) ( seq i -- newseq )

Vocabulary

project-euler.151

Inputs

seq	an object
i	an object

Outputs

newseq

an object

Definition

USING: combinators kernel math math.order sequences ;

IN: project-euler.151

: (pick-sheet) ( seq i -- newseq )
    [
        <=>
        { { +lt+ [ ] } { +eq+ [ 1 - ] } { +gt+ [ 1 + ] } } case
    ] curry map-index ;