add a sha1 benchmark

2008-01-14 11:43:33 -10:00 · 2008-01-14 11:43:33 -10:00 · e54b7b10a5
parent 097dad070a
commit e54b7b10a5
1 changed files with 7 additions and 0 deletions
--- a/extra/benchmark/sha1/sha1.factor
+++ b/extra/benchmark/sha1/sha1.factor
@ -0,0 +1,7 @@
+USING: crypto.sha1 io.files kernel ;
+IN: benchmark.sha1
+
+: sha1-primes-list ( -- seq )
+    "extra/math/primes/list/list.factor" resource-path file>sha1 ;
+
+MAIN: sha1-primes-list