155ec7dc41
* Finally added `array-axis-expand' as a dual for `array-axis-reduce' in order to implement `vandermonde-matrix' elegantly * Better, shorter matrix multiply; reworked all matrix arithmetic * Split "matrix-operations.rkt" into at least 5 parts: * "matrix-operations.rkt" * "matrix-basic.rkt" * "matrix-comprehension.rkt" * "matrix-sequences.rkt" * "matrix-column.rkt" Added "matrix-constructors.rkt" Added `matrix', `row-matrix', and `col-matrix' macros A lot of other little changes Currently, `in-row' and `in-column' are broken. I intend to implement them in a way that makes them work in untyped and Typed Racket.
12 lines
410 B
Racket
12 lines
410 B
Racket
#lang typed/racket
|
|
|
|
(require (except-in typed/rackunit check-equal?))
|
|
|
|
(provide (all-from-out typed/rackunit)
|
|
check-equal?)
|
|
|
|
;; This gets around the fact that typed/rackunit can no longer test higher-order values for equality,
|
|
;; since TR has firmed up its rules on passing `Any' types in and out of untyped code
|
|
(define-syntax-rule (check-equal? a b . message)
|
|
(check-true (equal? a b) . message))
|