count-lines ( -- n )

Vocabulary

tools.wc.private

Inputs

None

Outputs

n

an object

Definition

USING: alien.data io kernel math math.vectors math.vectors.simd
sequences ;

IN: tools.wc.private

: count-lines ( -- n )
    0 [
        aligned-slices [
            uchar-16 cast-array swap
            [ 10 uchar-16-with v= vcount + >fixnum ] reduce
        ] [ [ 10 = ] count + >fixnum ] bi*
    ] each-block-slice ; inline