Paste: cleave macro

USING: combinators kernel math math.ranges sequences ;
IN: problem5

: divides? ( m n -- ? )
    mod 0 = ;

: init-funcs ( seq -- seq )
    [ [ divides? ] curry ] map ; inline

: divides-range? ( m a b -- ... )
    [a,b] init-funcs cleave ;