*-if-index ( char combination index -- char )

Vocabulary

project-euler.051.private

Inputs

char	an object
combination	an object
index	an object

Outputs

char

an object

Definition

USING: kernel sequences ;

IN: project-euler.051.private

: *-if-index ( char combination index -- char )
    member? [ drop 42 ] when ;