some simple benchmarks

diff --git a/library/test/benchmark/empty-loop.factor b/library/test/benchmark/empty-loop.factor
new file mode 100644 (file)
index 0000000..ae7fa23
--- /dev/null
+++ b/library/test/benchmark/empty-loop.factor
@@ -0,0 +1,5 @@
+IN: scratchpad
+USE: arithmetic
+USE: test
+
+[ 2000000 [ ] times ] time

diff --git a/library/test/benchmark/fib.factor b/library/test/benchmark/fib.factor
new file mode 100644 (file)
index 0000000..948d385
--- /dev/null
+++ b/library/test/benchmark/fib.factor
@@ -0,0 +1,5 @@
+IN: scratchpad
+USE: math
+USE: test
+
+[ 35 fib ] time

diff --git a/library/test/benchmark/sort.factor b/library/test/benchmark/sort.factor
new file mode 100644 (file)
index 0000000..a6f7dc5
--- /dev/null
+++ b/library/test/benchmark/sort.factor
@@ -0,0 +1,8 @@
+IN: scratchpad
+USE: arithmetic
+USE: lists
+USE: random
+USE: stack
+USE: test
+
+[ [, 100000 [ 0 10000 random-int , ] times ,] num-sort drop ] time