tau ( m -- n )

Vocabulary

project-euler.common

Inputs

m

an object

Outputs

n

an object

Definition

USING: math math.primes.factors sequences ;

IN: project-euler.common

: tau ( m -- n ) group-factors flip second 1 [ 1 + * ] reduce ;