steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

benchmark.lcs: adding lcs benchmark.

db4
John Benediktsson 2013-03-21 18:07:28 -07:00
parent b398daf472
commit d25c144d5c
1 changed files with 8 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
extra/benchmark/lcs/lcs.factor Normal file
View File

@ -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