Fcalva/chibi-scheme
1
0
Fork 0
mirror of https://github.com/ashinn/chibi-scheme.git synced 2025-05-19 13:49:17 +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)
(fold-right kons knil (array->list array)))
;; note this is a reduce-right
(define (array-reduce op array)
;; (let* ((domain (array-domain array))
;; (init-index (interval-lower-bounds->list domain))
@ -662,8 +661,7 @@
;; domain
;; init-index)
;; knil))
;; TODO: rewrite with reverse indexing
(reduce op 'never-used (reverse (array->list array))))
(reduce (lambda (elt acc) (op acc elt)) 'never-used (array->list array)))
(define (array-any pred array . arrays)
(assert (all-equal? (map array-dimension (cons array arrays))))