block-merge ( t t -- t )

Vocabulary

project-euler.215.private

Inputs

t	an object
t	an object

Outputs

t

an object

Definition

IN: project-euler.215.private

GENERIC#: block-merge 1 ( t t -- t )

Methods

USING: accessors kernel project-euler.215.private ;

M: block block-merge
    [ [ two>> ] bi@ merge ] [ [ three>> ] bi@ merge ] 2bi
    <block> ;


USING: kernel project-euler.215.private ;

M: end block-merge nip ;