summaryrefslogtreecommitdiff
path: root/libguile/arrays.c
diff options
context:
space:
mode:
authorDaniel Llorens <daniel.llorens@bluewin.ch>2015-12-09 13:10:48 +0100
committerDaniel Llorens <daniel.llorens@bluewin.ch>2016-11-23 11:49:35 +0100
commitcd7fee8e657cf21ca5013fd90fd5043105e6a907 (patch)
tree804b9c135f65e05d712ff3c7487b10b2d44bad12 /libguile/arrays.c
parent31e9f8b974073e690f1ba6c60e18ed474de004a1 (diff)
downloadguile-cd7fee8e657cf21ca5013fd90fd5043105e6a907.tar.gz
Special case for array-map! with three arguments
Benchmark: (define type #t) (define A (make-typed-array 's32 0 10000 1000)) (define B (make-typed-array 's32 0 10000 1000)) (define C (make-typed-array 's32 0 10000 1000)) before: scheme@(guile-user)> ,time (array-map! C + A B) ;; 0.792653s real time, 0.790970s run time. 0.000000s spent in GC. after: scheme@(guile-user)> ,time (array-map! C + A B) ;; 0.598513s real time, 0.597146s run time. 0.000000s spent in GC. * libguile/array-map.c (ramap): Add special case with 3 arguments.
Diffstat (limited to 'libguile/arrays.c')
0 files changed, 0 insertions, 0 deletions