map-minimum ( seq quot -- min )


Vocabulary
project-euler.150.private

Inputs
seqan object
quotan object


Outputs
minan object


Definition
USING: kernel math.order sequences ;

IN: project-euler.150.private

: map-minimum ( seq quot -- min )
[ min ] compose 0 swap reduce ; inline