h1 ( t -- t )

Vocabulary

project-euler.215.private

Inputs

t

an object

Outputs

t

an object

Definition

IN: project-euler.215.private

GENERIC: h1 ( t -- t )

Methods

USING: kernel project-euler.215.private ;

M: block h1
    [ [ h1 ] [ h2 ] choice merge ]
    [ [ h0 ] [ h1 ] choice merge ] bi <block> ;


USING: kernel project-euler.215.private ;

M: end h1 drop <failure> ;