h-1 ( t -- t )

Vocabulary

project-euler.215.private

Inputs

t

an object

Outputs

t

an object

Definition

IN: project-euler.215.private

GENERIC: h-1 ( t -- t )

Methods

USING: project-euler.215.private ;

M: block h-1 [ h1 ] [ h2 ] choice merge ;


USING: kernel project-euler.215.private ;

M: end h-1 drop <failure> ;