>edges ( seq -- seq )

Vocabulary

project-euler.079.private

Inputs

seq

an object

Outputs

seq

an object

Definition

USING: kernel make math.parser sequences ;

IN: project-euler.079.private

: >edges ( seq -- seq )
    [ [ string>digits [ 2 head , ] keep 2 tail* , ] each ] { }
    make ;