diff --git a/extra/benchmark/memoize/memoize.factor b/extra/benchmark/memoize/memoize.factor index 366e94e456..093b66ad5d 100644 --- a/extra/benchmark/memoize/memoize.factor +++ b/extra/benchmark/memoize/memoize.factor @@ -3,6 +3,7 @@ USING: kernel math memoize sequences ; IN: benchmark.memoize +MEMO: mem0 ( -- ) ; MEMO: mem1 ( n -- n ) 1 + ; MEMO: mem2 ( n n -- n ) + ; MEMO: mem3 ( n n n -- n ) + + ; @@ -11,7 +12,7 @@ MEMO: mem4 ( n n n n -- n ) + + + ; : memoize-benchmark ( -- ) 1000 [ 1000 iota [ - [ mem1 ] keep [ mem2 ] 2keep [ mem3 ] 3keep mem4 drop + mem0 [ mem1 ] keep [ mem2 ] 2keep [ mem3 ] 3keep mem4 drop ] each ] times ;