whitespace ( seq -- n )

Vocabulary

help.syntax.private

Inputs

seq

an object

Outputs

n

an object

Definition

USING: ascii kernel math.order sequences ;

IN: help.syntax.private

: whitespace ( seq -- n )
    [ [ blank? ] all? ] reject
    [ 0 ] [ [ [ blank? not ] find drop ] [ min ] map-reduce ]
    if-empty ;