laminae ( upper -- n )

Vocabulary

project-euler.173.private

Inputs

upper

an object

Outputs

n

an object

Definition

USING: kernel math math.functions ranges sequences ;

IN: project-euler.173.private

: laminae ( upper -- n )
    4 / dup sqrt [1..b] 0 rot [ over /i - - ] curry reduce ;