prime-tau-upto ( limit -- seq )

Vocabulary

project-euler.047.private

Inputs

limit

an object

Outputs

seq

an object

Definition

USING: kernel namespaces ranges sequences ;

IN: project-euler.047.private

: prime-tau-upto ( limit -- seq )
    dup initialize-sieve 2 swap [a..b)
    [ dup is-prime? [ increment-counts ] [ drop ] if ] each
    sieve get ;