take-char ( n/f string -- n'/f string ch/f )

Vocabulary

modern.slices

Inputs

n/f	an object
string	an object

Outputs

n'/f	an object
string	an object
ch/f	an object

Definition

USING: kernel math sequences ;

IN: modern.slices

: take-char ( n/f string -- n'/f string ch/f )
    over [ 2dup ?nth [ [ 1 + ] 2dip ] [ f ] if* ] [ f ] if ;