cd002d5830
Refactored many of the fold functions (e.g. `array-axis-andmap' is gone, replaced by short-cutting `array-axis-and', which is sufficient because the result of `array-map' is non-strict; added `array-count', `array-all-fold'; removed `array-all=' and friends) Turned common folds into macros (preserves return types better, speeds up compilation time) Exposed a safe variant of `unsafe-array-axis-reduce'
56 lines
2.0 KiB
Racket
56 lines
2.0 KiB
Racket
#lang racket/base
|
|
|
|
(require "private/array/array-struct.rkt"
|
|
"private/array/array-constructors.rkt"
|
|
"private/array/array-pointwise.rkt"
|
|
"private/array/array-indexing.rkt"
|
|
"private/array/array-broadcast.rkt"
|
|
"private/array/array-transform.rkt"
|
|
"private/array/array-convert.rkt"
|
|
"private/array/array-fold.rkt"
|
|
"private/array/array-special-folds.rkt"
|
|
"private/array/array-print.rkt"
|
|
"private/array/array-fft.rkt"
|
|
"private/array/array-syntax.rkt"
|
|
"private/array/utils.rkt"
|
|
"private/array/array-comprehension.rkt"
|
|
"private/array/array-sequence.rkt"
|
|
"private/array/mutable-array.rkt"
|
|
"private/array/flarray-struct.rkt"
|
|
"private/array/flarray-pointwise.rkt"
|
|
"private/array/fcarray-struct.rkt"
|
|
"private/array/fcarray-pointwise.rkt"
|
|
"private/array/array-parallel.rkt"
|
|
)
|
|
|
|
;; Set the custom printer to a pretty one
|
|
(array-custom-printer print-array)
|
|
|
|
(provide (all-from-out
|
|
"private/array/array-struct.rkt"
|
|
"private/array/array-constructors.rkt"
|
|
"private/array/array-pointwise.rkt"
|
|
"private/array/array-indexing.rkt"
|
|
"private/array/array-broadcast.rkt"
|
|
"private/array/array-transform.rkt"
|
|
"private/array/array-convert.rkt"
|
|
"private/array/array-fold.rkt"
|
|
"private/array/array-special-folds.rkt"
|
|
"private/array/array-print.rkt"
|
|
"private/array/array-syntax.rkt"
|
|
"private/array/array-fft.rkt"
|
|
"private/array/array-comprehension.rkt"
|
|
"private/array/array-sequence.rkt"
|
|
"private/array/mutable-array.rkt"
|
|
"private/array/flarray-struct.rkt"
|
|
"private/array/flarray-pointwise.rkt"
|
|
"private/array/fcarray-struct.rkt"
|
|
"private/array/fcarray-pointwise.rkt"
|
|
"private/array/array-parallel.rkt"
|
|
)
|
|
;; from utils.rkt
|
|
Listof*
|
|
Vectorof*
|
|
Indexes
|
|
In-Indexes)
|