2p ( m -- n )

Vocabulary

project-euler.031.private

Inputs

m

an object

Outputs

n

an object

Definition

USING: kernel math ;

IN: project-euler.031.private

: 2p ( m -- n )
    dup 0 >= [ [ 2 - 2p ] [ 1p ] bi + ] [ drop 0 ] if ;