?maximum ( 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 greatest 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 } ?maximum .
3

See also

?minimum

Definition

USING: kernel math.order sequences ;

IN: sequences.extras

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