-
Notifications
You must be signed in to change notification settings - Fork 0
/
dense.scm
38 lines (31 loc) · 1.6 KB
/
dense.scm
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
;;;; dense.scm (CHICKEN Scheme)
;;@project: matrico (numerical-schemer.xyz)
;;@version: 0.6 (2024-07-18)
;;@authors: Christian Himpe (0000-0003-2194-6754)
;;@license: zlib-acknowledgement (spdx.org/licenses/zlib-acknowledgement.html)
;;@summary: dense column function aliases
(include-relative "f64vector.scm")
(include-relative "matrix.scm")
(module dense = matrix
(import (chicken module) f64vector)
(reexport (rename f64vector (f64vector column)
(make-f64vector make-column)
(f64vector-length column-length)
(f64vector-ref column-ref)
(f64vector-set! column-set!)
(subf64vector subcolumn)
(f64vector-unfold column-unfold)
(f64vector-concat column-concat)
(f64vector-any? column-any?)
(f64vector-all? column-all?)
(f64vector-map column-map)
(f64vector-map-index column-map-index)
(f64vector-foreach column-foreach)
(f64vector-foreach-index column-foreach-index)
(f64vector-axpy column-axpy)
(f64vector-fold column-fold)
(f64vector-fold* column-fold*)
(f64vector-dot column-dot)
(f64vector->list column->list)
(list->f64vector list->column)))
);end module