subseq-divisible? ( n index seq -- ? )

Vocabulary

project-euler.043.private

Inputs

n	an object
index	an object
seq	an object

Outputs

?

an object

Definition

USING: kernel math math.functions project-euler.common sequences
;

IN: project-euler.043.private

: subseq-divisible? ( n index seq -- ? )
    [ 1 - dup 3 + ] dip subseq digits>number swap divisor? ;