1 ! Copyright (C) 2012 John Benediktsson
2 ! See http://factorcode.org/license.txt for BSD license.
3 USING: kernel math memoize sequences ;
7 MEMO: mem1 ( n -- n ) 1 + ;
8 MEMO: mem2 ( n n -- n ) + ;
9 MEMO: mem3 ( n n n -- n ) + + ;
10 MEMO: mem4 ( n n n n -- n ) + + + ;
12 : memoize-benchmark ( -- )
15 mem0 [ mem1 ] keep [ mem2 ] 2keep [ mem3 ] 3keep mem4 drop
19 MAIN: memoize-benchmark