1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24
|
#lang racket/base
(require typed/untyped-utils
(except-in "typed-array-transform.rkt"
array-transform
array-reshape))
(require/untyped-contract
(begin (require "array-struct.rkt"
"utils.rkt"))
"typed-array-transform.rkt"
[array-transform (All (A) ((Array A) (Vectorof Integer) (Indexes -> (Vectorof Integer))
-> (Array A)))]
[array-reshape (All (A) ((Array A) (Vectorof Integer) -> (Array A)))])
(provide array-transform
unsafe-array-transform
array-axis-permute
array-axis-swap
array-axis-insert
array-axis-ref
array-reshape
array-flatten
array-append*)
|