prime-corners ( n -- m )

Vocabulary

project-euler.058.private

Inputs

n

an object

Outputs

m

an object

Definition

USING: kernel math math.primes ranges sequences ;

IN: project-euler.058.private

: prime-corners ( n -- m )
    3 [1..b] swap [ [ 1 - * ] keep 2 - sq + prime? ] curry count
    ;