simplify ( seq -- seq )

Vocabulary

project-euler.099.private

Inputs

seq

an object

Outputs

seq

an object

Definition

USING: kernel math.functions math.vectors sequences ;

IN: project-euler.099.private

: simplify ( seq -- seq ) flip first2 swap [ log ] map v* ;