scolobb/dds
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

networks,table->function: Store the function in a local binding.

Browse Source 
This avoids reconstructing the function from the table every time the
lambda is called.
This commit is contained in:
Sergiu Ivanov 2020-03-19 23:17:23 +01:00
parent 9bcb5681ce
commit 80ef41eaa4
1 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
networks.rkt
View File

@ -425,7 +425,8 @@
;;; meaning that it may be sometimes more expensive to compute than by ;;; meaning that it may be sometimes more expensive to compute than by
;;; using an direct symbolic implementation. ;;; using an direct symbolic implementation.
(define (table->function table) (define (table->function table)
(λ args ((table->function/list table) args))) (let ([func (table->function/list table)])
(λ args (func args))))
;;; Like table->function, but the produced function accepts a single ;;; Like table->function, but the produced function accepts a single
;;; list of arguments instead of individual arguments. ;;; list of arguments instead of individual arguments.