>words ( str -- words )

Vocabulary

ascii

Inputs

str

a string

Outputs

words

an array of slices

Word description

Divides the string up into words.

Definition

USING: kernel math sequences ;

IN: ascii

: >words ( str -- words )
    [ dup empty? not ] [
        dup [ blank? ] find drop
        [ [ 1 ] when-zero cut-slice swap ]
        [ f 0 rot [ length ] keep <slice> ] if*
    ] produce nip ;