nth-polygon ( n s -- p )

Vocabulary

project-euler.061

Inputs

n	an object
s	an object

Outputs

p

an object

Definition

USING: kernel math ;

IN: project-euler.061

: nth-polygon ( n s -- p )
    [ [ sq ] dip 2 - * ] [ 4 - * ] 2bi - 2 / ;