include-origin? ( coord-seq -- ? )

Vocabulary

project-euler.102.private

Inputs

coord-seq

an object

Outputs

?

an object

Definition

USING: grouping kernel math sequences ;

IN: project-euler.102.private

: include-origin? ( coord-seq -- ? )
    dup first suffix 2 clump [ [ first ] [ last ] bi det ] map
    2 clump [ product 0 > ] all? ;