factor/extra/benchmark/lcs/lcs.factor

9 lines
222 B
Factor

USING: kernel lcs math ;
IN: benchmark.lcs
: lcs-benchmark ( -- )
f 50,000 [ drop "sitting" "kitten" levenshtein ] times 3 assert=
f 50,000 [ drop "faxbcd" "abdef" lcs ] times "abd" assert= ;
MAIN: lcs-benchmark