block

Vocabulary

project-euler.215.private

Definition

IN: project-euler.215.private

TUPLE: block two three ;

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: block end-merge drop ;


USING: project-euler.215.private ;

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


USING: kernel project-euler.215.private ;

M: block h0 drop <failure> ;


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: block h2 [ h1 ] [ h2 ] choice merge <failure> swap <block> ;


USING: project-euler.215.private ;

M: block merge block-merge ;


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

M: block total [ total ] dup choice + ;