(next-solution) ( n hexagonal -- hexagonal )

Vocabulary

project-euler.045.private

Inputs

n	an object
hexagonal	an object

Outputs

hexagonal

an object

Definition

USING: kernel project-euler.common ;

IN: project-euler.045.private

: (next-solution) ( n hexagonal -- hexagonal )
    dup pentagonal? [ nip ] [ drop next-solution ] if ;