sum-diags ( n -- sum )


Vocabulary
project-euler.028.private

Inputs
nan object


Outputs
suman object


Definition
USING: kernel ranges sequences ;

IN: project-euler.028.private

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