benchmark.lcs: adding lcs benchmark.
parent
b398daf472
commit
d25c144d5c
|
@ -0,0 +1,8 @@
|
|||
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
|
Loading…
Reference in New Issue