From e54b7b10a5cc291aabe68860dcb9871598da797c Mon Sep 17 00:00:00 2001 From: Doug Coleman Date: Mon, 14 Jan 2008 11:43:33 -1000 Subject: [PATCH] add a sha1 benchmark --- extra/benchmark/sha1/sha1.factor | 7 +++++++ 1 file changed, 7 insertions(+) create mode 100644 extra/benchmark/sha1/sha1.factor diff --git a/extra/benchmark/sha1/sha1.factor b/extra/benchmark/sha1/sha1.factor new file mode 100644 index 0000000000..614077c673 --- /dev/null +++ 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