diff options
author | Daniel Llorens <daniel.llorens@bluewin.ch> | 2015-12-09 13:10:48 +0100 |
---|---|---|
committer | Daniel Llorens <daniel.llorens@bluewin.ch> | 2016-11-23 11:49:35 +0100 |
commit | cd7fee8e657cf21ca5013fd90fd5043105e6a907 (patch) | |
tree | 804b9c135f65e05d712ff3c7487b10b2d44bad12 /libguile/arrays.c | |
parent | 31e9f8b974073e690f1ba6c60e18ed474de004a1 (diff) | |
download | guile-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