n-and-phi ( seq -- seq' )

Vocabulary

project-euler.070.private

Inputs

seq

an object

Outputs

seq'

an object

Definition

USING: arrays kernel math sequences ;

IN: project-euler.070.private

: n-and-phi ( seq -- seq' )
    [ product ] [ [ 1 - ] map product ] bi 2array ;