benchmark.lcs: adding lcs benchmark.

diff --git a/extra/benchmark/lcs/lcs.factor b/extra/benchmark/lcs/lcs.factor
new file mode 100644 (file)
index 0000000..ed37e37
--- /dev/null
+++ b/extra/benchmark/lcs/lcs.factor
@@ -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