Fcalva/chibi-scheme
1
0
Fork 0
mirror of https://github.com/ashinn/chibi-scheme.git synced 2025-05-19 05:39:18 +02:00
Code Issues Projects Releases Packages Wiki Activity Actions

simplify array-reduce

Browse source
This commit is contained in:
Alex Shinn 2021-04-16 23:35:16 +09:00
parent c8f5f49890
commit d0510bebe6
1 changed files with 1 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
lib/srfi/179.scm
View file

@ -647,7 +647,6 @@
(define (array-fold-right kons knil array) (define (array-fold-right kons knil array)
(fold-right kons knil (array->list array))) (fold-right kons knil (array->list array)))
;; note this is a reduce-right
(define (array-reduce op array) (define (array-reduce op array)
;; (let* ((domain (array-domain array)) ;; (let* ((domain (array-domain array))
;; (init-index (interval-lower-bounds->list domain)) ;; (init-index (interval-lower-bounds->list domain))
@ -662,8 +661,7 @@
;; domain ;; domain
;; init-index) ;; init-index)
;; knil)) ;; knil))
;; TODO: rewrite with reverse indexing (reduce (lambda (elt acc) (op acc elt)) 'never-used (array->list array)))
(reduce op 'never-used (reverse (array->list array))))
(define (array-any pred array . arrays) (define (array-any pred array . arrays)
(assert (all-equal? (map array-dimension (cons array arrays)))) (assert (all-equal? (map array-dimension (cons array arrays))))