sum-diags ( n -- sum )

Vocabulary

project-euler.028.private

Inputs

n

an object

Outputs

sum

an object

Definition

USING: kernel ranges sequences ;

IN: project-euler.028.private

: sum-diags ( n -- sum )
    1 swap 2 <range> [ sum-corners ] map-sum ;