(find-unusual-terms) ( n seq -- seq/f )

Vocabulary

project-euler.049.private

Inputs

n	an object
seq	an object

Outputs

seq/f

an object

Definition

USING: kernel sequences ;

IN: project-euler.049.private

: (find-unusual-terms) ( n seq -- seq/f )
    [ [ arithmetic-terms ] with map ] keep
    [ [ last ] dip member? ] curry find nip ;