?minimum ( seq/f -- elt/f )

Vocabulary

sequences.extras

Inputs

seq/f

a sequence or f

Outputs

elt/f

an object or f

Word description

Outputs the least element of seq, ignoring any f elements in it. If seq is empty or f, returns f.

Examples

USING: prettyprint sequences.extras ; { 1 f 3 2 } ?minimum .
1

See also

?maximum

Definition

USING: kernel math.order sequences ;

IN: sequences.extras

: ?minimum ( seq/f -- elt/f )
    [ f ] [ [ ] [ 2dup and [ min ] [ dupd ? ] if ] map-reduce ]
    if-empty ;