/usr/lib/s9fes/help/memoize is in scheme9 2010.11.13-2.
This file is owned by root:root, with mode 0o644.
The actual contents of the file can be viewed below.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 | S9 LIB (define-memoizing <name> <procedure>) ==> procedure
(define-memoizing (<name> <args>) <body>) ==> procedure
(memoize procedure) ==> procedure
(memoize procedure 'reset) ==> procedure
(load-from-library "memoize.scm")
MEMOIZE turns the given procedure into a "memoizing" procedure
that stores intermediate results in an internal cache in order
to speed up computation. This works best for massively recursive
procedures.
When the 'RESET keyword is passed to MEMOIZE as a secod argument,
the resulting memoizing procedure will allow to clear its cache
by calling it with 'RESET as its only argument.
DEFINE-MEMOIZING is like DEFINE but defines a memoizing procedure.
Procedures created with DEFINE-MEMOIZING always interpret 'RESET
as a special argument for clearing their caches.
(letrec
((fib
(memoize
(lambda (x)
(if (< x 2)
1
(+ (fib (- x 1))
(fib (- x 2))))))))
(fib 100)) ==> 573147844013817084101
|