h2 ( t -- t )

Vocabulary

project-euler.215.private

Inputs

t

an object

Outputs

t

an object

Definition

IN: project-euler.215.private

GENERIC: h2 ( t -- t )

Methods

USING: kernel project-euler.215.private ;

M: block h2 [ h1 ] [ h2 ] choice merge <failure> swap <block> ;


USING: kernel project-euler.215.private ;

M: end h2 dup failure? [ <failure> <block> ] unless ;