986e695bd5
* Added parameter `array-strictness', default #t * Added `array-default-strict!' and `array-default-strict', which act like the functions without "default" in the name when `array-strictness' is #t; otherwise they do nothing * Lots of small changes to existing array functions, mostly to ensure computations are done using nonstrict arrays, but return values are strict when `array-strictness' is #t * Added strictness tests * Added tests to ensure untyped code can use `math/array' * Rewrote `array-map' exported to untyped code using untyped Racket * Rearranged a lot of `math/array' documentation
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-unfold.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-unfold.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)
|