sum-of-squares ( seq -- n )

Vocabulary

project-euler.006.private

Inputs

seq

an object

Outputs

n

an object

Definition

USING: math sequences ;

IN: project-euler.006.private

: sum-of-squares ( seq -- n ) 0 [ sq + ] reduce ;