sum-corners ( n -- sum )

Vocabulary

project-euler.028.private

Inputs

n

an object

Outputs

sum

an object

Definition

USING: kernel math ;

IN: project-euler.028.private

: sum-corners ( n -- sum )
    dup 1 = [ [ sq 4 * ] [ 6 * ] bi - 6 + ] unless ;