euler044-step ( min m n -- min' )

Vocabulary

project-euler.044.private

Inputs

min	an object
m	an object
n	an object

Outputs

min'

an object

Definition

USING: kernel math math.order ;

IN: project-euler.044.private

: euler044-step ( min m n -- min' )
    [ nth-pentagonal ] bi@ 2dup sum-and-diff?
    [ - abs min ] [ 2drop ] if ; inline