9 lines
222 B
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
|