lcs-benchmark ( -- )

Vocabulary

benchmark.lcs

Inputs

None

Outputs

None

Definition

USING: kernel lcs math ;

IN: benchmark.lcs

: lcs-benchmark ( -- )
    f 50000 [ drop "sitting" "kitten" levenshtein ] times
    3 assert= f 50000 [ drop "faxbcd" "abdef" lcs ] times
    "abd" assert= ;